Octopus House, 
Bury End Road, 
Upper Gravenhurst, 
Bedford MK45 6PQ, 


Tel: (0582) 886214 


Dear Brian, 


Would you and Sheila like to visit us next 
weekend as we would love to see you both. Let us 
know. What do you think of my new Letterhead = all 
done with this new program in BEEBUG, As. you can 
see, it really does give a professional touch to any 
letter, and once it's set up it only needs a single 
Line embedded in my Wordwise text to call it Up. ` 


In fact, the Local golf club were so im- 
pressed they have asked me to design something for 
them as well, And that fellow Charles, you know the 
one that runs that very successful computer company 
of his, well he's going to use it for all his 
business letters from now on. 


The thing is it's so easy to use! Well that's 
all for now. Hope to see you next weekend. 


Regards 


George. 
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Backgammon 


The changes that we have made to recent issues of BEEBUG, 
the increase in the number of Master pages and the renumbering of 
the supplement, have provoked comment from some members. 
Clearly it is difficult to please everyone, but we can try. 

After some thought we have decided t: make the following 
further changes with effect from this issue. The supplement will be 
reduced to a total of eight pages and will increasingly concentrate on 
information for members, including our free personal ads section 
which has proved very popular. This size of supplement will mean 
that it can be readily removed by those readers who wish to do so, 
leaving the rest of the magazine intact. 


The changes to the supplement provide us with extra editorial 
pages. We are taking advantage of this to introduce two new and 
regular features to the magazine covering Communications and 
Education. These will appear in alternate issues. The first of these 
new features, entitled The Comms Spot, appears in this issue and 
provides exciting news of a major new viewdata service. 


This, the January/February issue of BEEBUG, is one of our two 
double-month issues. However, we shall be endeavouring to bring 
publication forward, and the March issue should be with you by the 
end of February. | 
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We are currently setting up a substantial data base which will 
form part of Micronet. Not all the details have yet been finalised but 
the BEEBUG pages will contain a variety of information, induding 
details of BEEBUG products, and response frames to allow you to 
Join BEEBUG or renew your membership. We expect to be able to 
release full details next month including the page number of the 
BEEBUG front page. The BEEBUG pages will also be routed from 
other pages in Micronet. 
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Instant Mini Office 


We hope that the new classification symbols for programs and 
Tee TET reviews clarify matters with regard to the variety of Acorn systems. 

EILEEN, | The complete set of icons is shown below. These show clearly the 
valid combinations of machine (version of Basic) and filing system 
for each item, and Tube compatibility. A single line through a symbol 
indicates partial working (normally just a few changes will be 
needed), a cross shows total incompatibility, Reviews do not 
distinguish between Basic | and Il. 


COMPUTER SYSTEM — FILING SYSTEM 
Master (Basic IV) ADFS 

. Compact (Basic IV) Ë DFS 
Compact (Basic VI) [P Cassette [23] 
Model B (Basicll) 5: TUBE COMPATIBILITY 
Model B (Basic!) ih Tube En 
Electron Ë 


Sideways RAM Buffers 


Studio has a 
each 


Micro 
range of nine discs, 


of 3Ø pictures, for 
inclusion in Pagemaker 
documents. The images are 
divided into categories. 
These include computing, 
sport, people, children, 
animals, plants, vehicles, 


objects and a miscellaneous 
disc with a selection of 
pictures from all the 
others. 

Each disc costs £2.50, 
or £2 each for five or 
more. The discs, or sample 
printouts, are available 


from Micro Studio, 83 Clay 
Soham, 


Street, Cambs  CB7 


SHL. 
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The machine code 
program development system 
from Mijas Software enables 
software to be easily 
written for the 0502 (as 
used in the model B) and 
65CØ2 (used in the Master 
series). 


The system includes a 
fast macro assembler and a 
library of machine code 
routines for inclusion in 
your own programs under 
development. The devel- 
opment system costs £22 on 
disc or £29.58 on ROM from 
Mijas Software on (Ø962) 
89352. 


The Overlay board from 


Vine Micros gives Master 
128 owners more ROM 
sockets. The board plugs 
into the Mbit ROM socket 


and the ROM plugs into the 
board. Up to three of the 
Mega ROM's eight ROM 
programs can be disabled 
and substitute 'normal' 
16K ROMs plugged into the 
Overlay board. Extra ROMs 
can be added to the Master 
without using any sideways 
RAM banks or ROM sockets. 


The Overlay board costs 
£19.95. It is only availabe 
for Master 128s with a 
socketed Mega ROM. Masters 


with ROMs soldered in place 
cannot be fitted with the 
board. Further details from 
Vine 

812276. 


Micros on (93Ø4) 


The BBC's Telesoftware 
service starts to broadcast 
tutorial articles as well 
as programs this month 
(January). The new series, 
called OSBITS, aims to 
teach BBC micro users the 
ins and outs of assembler 


programming and ` includes 
both text | and example 
programs. 


The broadcasts start in 
the second week of January 
and continue, | changing 
weekly, for 26 weeks. All 
Telesoftware can be viewed 


and/or downloaded for free 
by Beeb users with a 
Teletext adaptor. The 


Telesoftware pages start at 
page 700 on  BBC2 Ceefax. 
Further details from BBC 
Telesoftware (01) 743 5588. 


More games have 
appeared under the Superior 
Software/Acornsoft label. 


Elite has been re-released 
in four versions especially 
for the Model B, Electron, 
Master  128/Compact and the 
6502 second processor. 


Revs is now available 
complete | with the Revs 
4-tracks extra race track 
package and has been 


altered to include computer 
aided steering to help 
novice drivers. 


Details from Superior 
Software on (0532) 459453. 


A game based on the TV 
soap opera  Eastenders has 
been released by licence 
supremos Macsen Software. 


The game appeals to both 
arcade and adventure 
addicts but is still a 
"unique game ' claims 


Macsen. The Eastenders game 
is supplied on tape and 
costs £9.95 from Macsen 
Software on (0267) 2325908. 


Massodax have announced 
a new data logger for the 
BBC and Master Series. The 
PEARL 8000 is an 8 channel 
Parallel Entry Auto Ranging 
Logger (PEARL). 


The unit provides an 8 
channel multiplexed input 
to one of the four analogue 
ports on the host computer. 


The unit measures 
10x3x8 | inches and is 
powered from the micro. An 
introductory price of 


£150.00 has been set. For 
contact  Massodax 
(044282) 3091. 


details, 
on Tring 


Product: Mini Office I _— 

Supple: Database Publications 

Europa House, 68 Chester Road, 
. Hazel Grove, Stockport SK7 SNY. 
` (061) 429 7931 

. £89.95 inc. VAT 


Mini Office has become one of the most 
successful business packages of all time 
for the BBC Micro. This is partly due to 
the copious advertising and reviews it has 
received in Database's own publications, 
but also, it has to be said, for the 
extraordinary value the package offers. 
Database has now  parcelled the six 
programs into four 32K ROMs, mounted them 
on a carrier board and re-released them as 
'Instant' Mini Office II. In the process, 
they've added a few extras to make the 
suite still more attractive. 


Price: 


26 


Mini Office II consists of six 
modules, | covering the main  'serious' 
applications of the BBC micro in business: 

* Word Processor 

* Database 

* Spreadsheet 

* Communications 

* Business Graphics 

* Label printing 
The new packaging of the complete system, 
a total of 128K of machine-code, means 
that any of the applications are instantly 

on-tap' with a simple star command. 


The four ROMs are supplied on a 
well-designed but tackily made 3" x 5" 
circuit board, which also holds a few 
extra switching chips and a header plug 
connected to a short length of ribbon 
cable. The other end of the cable is 
it's 
into any available ROM 


fitted with another header plug, and 
this you 


insert 


i version 2 of their 


socket. 
mapped onto just one ROM slot. 


The complete set of ROMs are 


The carrier board will work happily 
from one of the sockets of a ROM expansion 
card, but you will have to be careful 
where you position the board so that you 
can still replace the cover of your beeb. 


Once it's all installed, you can call 
up the Mini Office II main menu with the 
command *MINI, or any of the individual 
functions with an abbreviation such as *WP 
for the word processor. 


Sect the word processor, a 


When you 
secondary menu is displayed with a number 


of filing options. These include load, 
save, Clear, print, preview and edit text, 
search and replace, as well as screen mode 
selection, and a facility to use the AMX 
mouse instead of the cursor keys. 


All this is very convenient and brings 
to mind the opening menu of Wordwise, but 
with more options. In fact there is a 
strong thread of  Wordwise running 
throughout the Mini Office word processor, 
and anyone used to Wordwise will feel very 
much at home. Some of the controls and the 
presentation of text have been changed, 
but most of the alterations are cosmetic 
(embedded codes being highlighted in 


magenta rather than green, for instance). 


The embedded commands include specific 
Epson printing effects like double-strike 
and italics, but others can also be set by 
using a general Escape code command. You 
can also specify single or double-sized 
text and can control height and width 


5 


independently to produce a range of 
special effects. Up to ten sequences of 
printer controls can be stored separately 
within Mini Office and called with a 
single command. 


The Wordwise Plus programming language 
is missing from Mini Office, of course, 
and there are a few other features where 
the Computer Concept's product has the 
edge. When you need to scroll the display, 
for instance, the Mini Office editing 
Screen moves rather more slowly than 
Wordwise does. By and large, the Mini 
Office word processor is extremely good, 
and has a number of significant advantages 
over the likes of Wordwise and View. 


For a start, unlike Wordwise, Mini 
Office can display text in 20, 40 or 80 
column modes (and use Watford, Aries or 
Ramamp shadow RAM boards to provide the 
space for long text files). In the 29 
column mode text appears double height as 


well as double width. In addition to an 
on-screen word counter and elapsed time 


clock, you can call up a typing speed 
meter, which is handy if you like to keep 
your index fingers in trim. 


Mini Office II 
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ress ESCAPE for GRAPHICS MENUE 


You can select most of the major page 
format parameters from a separate menu at 
print-time, which is a lot more convenient 
than having to rely completely on embedded 
commands. And you can combine the 
facilities of the word processor with the 
database to process mailing lists. 


The manual is clear and comprehensive, 
but it would have been nice to have had a 
quick reference card of the available 
commands as well as a key strip. 
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very fast, 


is module is not as comprehensive as 
the word processor. Perhaps its main 
limitation is that you can't define the 
record format. You can specify the length 
and type of each field, but they are all 
listed in order down the screen and 
there's no way of grouping them together. 
This may not worry you, but if you have a 
variety of information on the same record, 
you will probably want to separate the 
main areas. 


Mini Office is a [fixed format 
disc-based, random-access file manager. It 
allows around 20 fields per. record, 
although each field can be up to 6 
characters long. The program tries to work 
in memory for as long as possible, so 
keeping access times down. 


The Mini Office database can hold 
formulae to calculate values from numeric 
fields on any record and deposit the 
results in other named fields. It can also 
total fields across each record in a file. 


The database can create subsets of its 
records according to a set rule which you 
define. The rule can include the logical 
operators =, <>, >, <; >=, <= and INSTR. 
This last operator will find an occurrence 
of a given string anywhere within a 
specified field. You can search on any 
number of fields. If the file is small 
enough to be held in memory, searching is 
although it obviously slows 
down when the file becomes disc-bound. 


The data can be sorted on one or more 
fields and in ascending or descending 
order. You can print out all or selected 
fields from within the database, and 
combine data with text from the word 
processor to produce more sophisticated 
print-outs. 


Like the word processor, this module 
works in any of the BBC micro's screen 
modes, and can make use of shadow RAM. It 
is an intelligent spreadsheet in that it 
can distinguish automatically between text 
and number entries. You need only use a 
special key (fØ in this case) to precede 
formulae. 


You can define a bigger sheet in the 
ROM version of Mini Office than in the 
disc or cassette versions of the suite, 


anything up to 5148 cells. The shape of 


the sheet is user-definable and this 
includes individual or global definition 
of column widths. 


The mathematical operators include +, 
r *, /, total, maximum and minimum, and 
an extended set of trigonometric and 
logarithmic operators has been added for 
the ROM version. It's disappointing not to 
see statistical functions which are 
perhaps of more use in the business 
sphere, but to some extent these can be 
built up from the existing functions. 


—— 


The spreadsheet normally re-calculates 
automatically, and  impressively quickly. 
It offers all the normal formula 
replication facilities, except replicating 
a formula into a range of cells. Each one 
has to be copied individually. 


There seems little in the ‘'standard' 
BBC Micro spreadsheets like Viewsheet or 
Ultracalc that Mini Office can't 
reproduce. It's perhaps marginally slower 
in scrolling around the sheet, but this 
isn't really a problem. The menu lets you 
save data from a sheet in a suitable form 
for the graphics module to plot. 


This part of the suite is intended to 
produce graphs and charts from figures in 
the spreadsheet, or from data typed at the 
keyboard. It's the only part of Mini 
Office which makes any attempt to use 
icons for its menu options, although all 
modules will work with the AMX mouse. 


The graphics module produces bar 
charts, pie charts and line graphs. Bars 
can be 2D or 3D, separate or stacked and 
pies can be exploded and with default 
shading’ patterns (which didn't display 
with a Ramamp shadow RAM board on) or 
those selected with the keyboard or mouse. 
You can scale the graphs yourself or have 
Mini Office do it for you. Custom-made 
titles can also be added. 


Finished graphs can be displayed on 
screen or sent to any Epson-compatible 
printer. I've never been very convinced of 
the usefulness of business graphics, but 
this program is probably as good as any. 


This program is designed to let you 
communicate with information services like 


Prestel or Telecom Gold. It provides the 
main communication protocols in a 
convenient menu, and in most cases you can 
simply select one of three main options. 


You can also define your own 
protocols, but this takes you down some 
tortuous menu paths and is not nearly as 
easy to use as a program like CommStar. In 
use, the comms module proved quite 
adequate and it can cope with the extended 
ASCII character set (assuming your 
correspondent can also). This is handy if 
you want to send files where the high bit 
of each byte is used (tokenised Basic 
files, for instance). Overall, the comms 
module is usable, but not as convenient as 
some stand-alone packages. 


is a comprehensive utility for 
printing labels up to three across on an 
80 column printer. You can select the 
number of lines, line gap and three tab 
positions to line up the start of text. 
You can save any label format you define, 
and import data from the database to print 
labels from a datafile. 


The first conclusion that must be 
drawn is that Instant Mini Office II is 
exceptional value for money. To have put 
six high quality programs into one package 
and have marketed the lot for under £60 
must be doing the BBC micro user a favour. 


Having said that, there are a few 
shortcomings to the programs, the main one 
perhaps being that no real attempt has 
been made to integrate the separate parts 
of the 'Office'. Although you can merge 
data from the database with text from the 
word processor and produce graphics from 
the spreadsheet, there is no facility to 
share datafiles as there is, for example, 
in the Interlink series. 


Any criticisms along these lines, 
though, are likely to look churlish when 
you remember that the 128K of Mini Office 


costs less than some single applications 
of similar DANE 
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Now that so many printers are capable 
of both good quality text and graphics, 


what better than to mix the two together 
to produce sophisticated and attractive 
letterheads for both personal and business 
use. The program presented here allows you 
to do just that - using it you can easily 
design your own logos, which can then be 
printed out and used in letterheads etc. 
as you wish. This can be done quite 
automatically from within Wordwise. 


TYPING IN THE LOGO DESIGNER 

The main program is essentially a logo 
designer. To use this program you will 
need a printer that supports Epson- 
compatible graphics; very few don't. Type 
the program in and then save it on 
cassette or disc. Now type: 

PAGE-&1400 «Return» 
and CHAIN the program back in. This is 


done to remove the problem of downloading . 


for DFS users, but tape users must also 
re-load it. Master and Compact users need 
not worry about resetting PAGE at all. 
Please note that model B and B+ users with 
the ADFS fitted will not be able to use 
the logo designer with this filing system, 
though logos can subsequently be printed 
from ADFS files. 


While testing the program, it is worth 
noting that fØ can be used at any time to 
exit from the program, as the Escape key 
is effectively disabled. The program is 
automatically recovered should you press 
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Break, but after Ctrl-Break, you will need 
to re-enter PAGE-&1400«Return» followed by 
OLD<Return> to recover. 


Finally, if you are worried about 
typing the program in (or wish to avoid 
sore fingers) then a full version of the 
program is included on this month's 
magazine cassette/disc. 


USING THE LOGO DESIGNER 

The logo designer has similar features 
to many drawing packages, the main 
difference to these being that the design 
area is made up of less dots or pixels. 
For clarity, these dots are shown 
enlarged. When you run the program, you 
will see a large outline box, to the right 
of which is a list of all the operations. 
Below the box, the current colour and fill 
pattern will be displayed. 


At the bottom left of the design area 
(the outlined box) is the cursor, a small 
red block. This can be moved across the 
area using the cursor keys; pressing Shift 
as well will speed it up. 


The Z key will set a dot at the 
current cursor position, and X will erase 
it. When creating large logos, a very 
useful feature is line drawing - pressing 
Return will draw a line from the last 
point plotted to the current cursor 
position. Pressing B will give a large 
block at the current cursor position. 


Also available is a simple fill; 
pressing F will fill an enclosed shape in 
the present pattern, which is displayed 
below the design area. The fill is 
reasonably quick considering the amount of 


work involved, but the penalty for this is 
that complex shapes may need several fills 
for different sections. 


The fill pattern can be changed by 
pressing H to switch 'hatching' (a dotted 
effect) on or off. Using the Ø and | keys 
to switch between black or white will also 
affect the pattern. The current 'colour' 
will also be used in line drawing and the 
block operation. 


If you're not happy with your design, 
then the quickest way to get rid of it is 
to clear the grid by pressing C. Another 
useful feature for correcting mistakes is 
that by setting the colour to Ø the B key 
can act as an eraser, rubbing out large 
blocks. Unsatisfactory lines can be easily 
removed by drawing the line again but in 
colour Ø. 


; Once you've come up with a design that 

you're happy with, or wish to safeguard 
your hard work from power cuts etc., then 
press S. After entering a suitable 
filename (not more than seven letters with 
the DFS) your logo will be saved to tape 
or disc. Note that all logos are saved 
with the prefix "H." - this is done so 
that disc users will find all their logos 
in directory H, to avoid confusion. ADFS 
users will need to create such a directory 
first (e.g. use *CDIR $.H). 


To load a logo, for adjustments or 
printing out, use the L key. The filename 
should be entered again, and the logo will 
then be loaded; this takes a while, so 
please be patient! 


Of course, you'll want to be able to 


print out your final logo design. Just 
press P to do this. M will perform 
basically the same function, but will 


print as many copies as you like, 
'form-feeding' between each one. 


Usually the logo is printed at the 
left-hand edge of the paper, but this can 
be changed using I to set an indent of 
between Ø and 63 spaces. 


The Escape key can generally be used 
to abort an operation, which can be very 
useful should any function (especially the 
fill) start going wrong, or you press the 
wrong key. However, Escape cannot be used 
to interrupt a filing operation (load or 
save) once the filename has been entered. 
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Turn pixel on L Load design 
Turn pixel off S Save design 


Large block Ø/1 Change colour | 
Toggle hatching Ret Draw line | 
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Print multiple copies | 


USING YOUR LOGOS. 

The main use for your logos will 
probably be as part of a letterhead. To do 
this, you will need to use P or M from 


within the designer to print out the logo, 
and then turn off the printer and wind the 
paper back in ready for printing a letter 
around and/or below it. 
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iMi? d. TEMPLE 
99 Chilwell St, 
Borehamfield, 
Herts BES BUG. 


figure I 


For Wordwise disc users, the whole 
process can be completely automated using 
a special 'converter' program (Listing 2). 
What this does is to allow logos to be 
printed from within a Wordwise document 
using the little-known embedded command: 

GF"<filename>" 
which will print out the relevant file. 
For printers with reverse feed capability, 
this will be used so that the print head 
returns to the top of the page ready for 
an address etc. 


J. TEMPLE 
99 Chilwell St, 
Eorehanfield, 
Herts BES SUG. 


TEMPLE 


FROGRATS figure 2 


If you wish to use the GF facility, 
type in the Converter program and save it. 
Now run the program and enter the filename 
of the saved logo you wish to convert to 


Wordwise format. Once this has been done, 


the program will produce a converted file 
with the same name as the previous one, 
but with the prefix "W." 


This filename can then be used with 


the GE 
commands for an 
shown 
figure 2. 
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embedded command from Wordwise. The 
: example letterhead are 
in figure 1, and the result in 


REM Program LOGO DESIGNER 


REM Version B3.3 


Author Jonathan Temple | 
REM Beebug Jan/Feb 1987 
aM Program subject to copyright 


MODE 1 


187Ø=18&19ØØ 
HIMEM=& 2BØØ 
I %=&2BØØ: D3=&2BØ] 


169 = 


18 
168 < 


170 PROC 


189 | 
190 
200 
210 
220 
230 : 

1009 D 

1010 

1020 

1030 

1040 

1050 J 

1060 

1070 

1080 

1090 

1190 

1110 

1120 

1130 

114 


1150 IF INKE 
1160 IF INKE 


117Ø 
1180 
1199 
1200 
1210 
1220 
1230 
1240 


MODE 7 
*FX 4 
*FX 21 
*FX 200 
END 


DEPPROCedit 
PROCoff 
X$20:Y$20:PROCstatus 
REPEAT 
PROCon 
TY=Ø: K3= 
IF INKEY-26 J$2z-8 
IF INKEY-122 J3=8 
IF INKEY-58 K$-8 
IF INKEY-42 K%=-8 
IF INKEY-1 J$sJ$*4:K$-K$*4 
IF J$ OR K$ PROOmove 
IP INKEY-67 PROCplot (Ø) 
IF INKEY-98 PROCDlot(1)s:PROCSt 
IF INKEY=49 Gès =Ø; PROCStatus 
tEY-49 G$s1:PROCstatus 


GE HeaHs EOR] : PROCstatus 
IF INKEY-83 PROCclear 
IP INKEY-74 PROCline 
IF INKEY=101 PROCblock 
IF INKEY=68 PROCfill . 
IF INKEY-38 PROCindent 
IF INKEY-56 PROCprintout (1) 
IF INKEY-102 PROCprintout(2) 
IF INKEY-87 PROCfile ("LOAD") : PROCÖ 


isplay:*FX 200 


1258 
tatus: 
1260 
1278 


IF INKEY-82 PROCfile("SAVE"): PROCS 
*EX 200 

UNTIL INKEY-33 

ENDPROC 


1280 : 


1290 
1300 
1310 


DEFPROCmove 
PROCoff 
X$zX94J2:Y$sY$4K$ 


1320 IF X%<Ø THEN X3=7924+X3% 
1330 IF Y$«0 THEN Y3=768+Y3 
1340 IF X2»784 THEN X%=X%=-792 
1350 IF Y$»760 THEN Y$=Y%=768 
1360 PROCon 

1370 ENDPROC 
1380 : 

1390 ie 

1400 J3=X%/8:K%=Y%/8 

1410 PROCwait 

1420 PROCpLot (G3) : j$=x8-J8:k3=y3-K3 
1430 L$sSQR((J$-x2)^24(K$-y$) ^2) 
1449 IF L3=Ø THEN ENDPROC 
1450 FOR N$s1 TO L$ 

1460 X$58*INT(J$4N$*392/L$2) 
N3*k3/L3) 

1470 ee undi E 
1480 x? =J%: y8=K3 
1490 Y$e7$*B: Y$s 
1500 ENDPROC 

1510 : 

1520 DEFPROCblock 
1530 IF X%>72Ø OR Y3<64 VDU 7:ENDPROC 
1540 3j3=X%/8:K%=Y%/8 

1550 PROCOfÉf 

1560 FOR K%=k3=7 TO k% 

1570 M&=D%+ (KSDIV8) *99: F$22^ (K$ AND?) 
1580 FOR J%=j% TO j$47 

1590 IF G&S M2?J325(M$?J$ OR F$) ELSE M%? 


eVS=8* INT (KS+ 


K3* 8: PROCStatus 


J%=(M%?J% AND 255-F$) 


1600 NEXT, 

1610 GCOL @,G%:MOVE X$,Y$44 

1620 PLOT 0,60,0:PLOT 81,0,-60 

1630 PLOT Ø,-6Ø,Ø:PLOT 81,0,60 

1640 PROCON 

1650 ENDPROC 

1660 : 

1670 DEFPROCfil1 

1680 C%=G%:J%=X%:K%=Y% 

1690 PROCwait 

1700 FOR L%=-8 TO 8 STEP 16: 

1710 Y%=K%: REPEAT: C3=G3 

1720 IF X% MOD16=Y%3 MOD16 C%=G% EOR H% 
1730 REPEAT 

1740 PROCplot(C$):C$sC$ BORH:X%=X%+8 
1750 REN FNread=G% OR X2»784 

1760 X%=J%:C%=G% 

1779 IP p MOD16= YS MOD16 C%=G% EOR H$ 
1788 REPEAT 

1798 PROCplot (C3) :C%=C% E 
1800 UNTIL FNread-G$ OR X%<QØ 
1810 X%=3J%: Y%=Y%+L% 

1820 UNTIL FNread=G% OR Y%<Ø OR Y3>769 
1830 NEXT 
1840 X$sJ$: 
1858 ENDPROC 
1860 : | 
1879 DEFPROCindent 

1880 REPEAT *FX 21 

1899 PRINT TAB(Ø,28);SPC (39) 


X$-X$-8 


/$:K$:PROCStatus 


1900 INPUT TAB(@,28);"Indent spaces (Ø- 
63) 3: " z% | 

1919 UNTIL 2%>=@ AND 2%<64 

1920 ?1%=z%: PROCstatus 

1930 ENDPROC 


1950 DEFPROCpr intout (N%) 

1968 PROCwait 

1970 IF N%=2 N%=FNmultiple 

1980 FOR C%=1 TO N% 

1990 VDU 2,1,27,1,65,1,8 

2000 FOR K%=1] TO Ø STEP ~] 

2010 IF ?I$»0 FOR L%=] TO ?I$:VDU 1,32: 


2020 VDU 1,27,1,76,1, 198, 15 4 
2030 M8=D%+K3*99 

2040 FOR J%=Ø TO 98 

2058 VDU 1,M$?J$,1,M$?2J$:NEXT 
2060 VDU 1,10: NEXT 

2070 IF N%>1 AND C%<N% VDU 1,12 
2080 NEXT:VDU 1,27,1,65,1,12,3 
2090 PROCstatus 

2100 ENDPROC 


2120 DEFFNmultiple 

2130 REPEAT *FX 21 

2140 PRINT TAB(@,28) ;SPC(30Q) 

2150 INPUT TAB(0,28);"Copies: " N% 
2160 UNTIL N%>Ø 


2190 DEFPROCon 
2200 BS=FNread:GCOL 0,2 


2210 PLOT 69,X%,Y%:PLOT 65,4,0 
2230 ENDPROC 


2250 DEFPROCOff 

2260 PROCwrite(B%) :GCOL Ø,B% 
2270 PLOT 69,X%,Y%:PLOT 65,4,0 
2280 PLOT 65,0,4:PLOT 65,-4,0 
2290 ENDPROC 


2310 DEFPROCplot (C$) 
2320 E ): GCOL 9,C$ 
2330 PLOT 69,X%,Y%:PLOT 65,4,Ø 


2340 PLOT Free 65,-4,0 
2350 ENDPROC 

2360 : 

2370 DEFPROCst 


BEEBUG Limited 


Dolphin Flace, 
Holywell 
St Albans, 

Herts ALL IEX. 


Hill, 


2380 ee 
2390 ENDPROC 

2400 : 

2410 DEFPROCwrite ( (NS) 

2420 Z%=Y%/8: W= (Z%DIV8) *99 

2430 M%&=D%+X%/8+W%:F%=2" (Z% AND7) 

2440 IF N% ?M%=(?M% OR F%) ELSE ?M%= (?M 
% AND 255-F%) 

2450 ENDPROC 

2460 : 

2470 DEFFNread 

2480 Z9$zY$/8:W$-(ZSDIV8)*99 

2490 M%=D%+X%/8+W% 

2500 =ABS((?M% AND 2^(Z$ AND7))>Ø) 

2510 : 

2520 DEFPROCfile(CS$) 

2530 PROCOff 

2540 LOCAL X$,Y$ 

2550 REPEAT *FX 21 

2560 PRINT TAB(0,28);SPC(30) 

2570 INPUT TAB(0,28);" Filename: " FS 

2580 UNTIL FS>"" AND LEN(FS$)«8 

2590 *FX 200,1] 

2600 S& 700-CS«" H."+FS+" 2BØØ" 

2610 IF CS="SAVE" $&700-98&700-" 2FFF";C 
Sz" SAV" 

2620 PRINTTAB(Ø,28)CS;"ING """;pg;""mm; 
SPC(9) 

2630 X%=Ø:Y%=&7:CALL &FEF7 


KK KK GS ØA 


2640 IF C$="LOAD" VDU24,Ø;Ø;792;768:16 

2650 ENDPROC 

2660 : 

2670 DEFPROCdisplay 

2680 PRINT TAB(0,28);"Please wait" ;SPC( 
25) 

2690 GCOL 0,1] 

2700 FOR K%=Ø TO 95 

2710 M$=D%+(K%DIV8)*99:F$=2" (K% AND7) 

272Ø FOR EM 5-0 TO 98 

2730 IF (M$?J$ AND F%) PLOT69,J$*8,K2*8 
: PLOT65,4,0: PLOT65,0,4: PLOT65, -4, Ø 

274Ø NEXT, 

275Ø PROCstatus 

276Ø ENDPROC 

2770 : 

2780 DEFPROCwait 

2790 PROCoff 

2800 PRINT TAB(0,28);"Please wait";SPC( 
25) 

2810 ENDPROC 


2820 : 

2830 DEFPROCdelstat 

2840 PROCoff 

2850 PRINT TAB(Ø,28) ;SPC(3Ø) 

2860 ENDPROC 

2870 : 

2880 DEFPROCstatus 

2890 PROCon 

2900 PRINT TAB(0,28);"Use arrow keys to 
move"; SPC (160) 

2910 PRINT TAB(0,30);"Fill pattern: "; 
2920 COLOUR G%: IF H$«»G$ COLOUR!29 

2930 VDU 224,17,3,17,128 

2940 PRINT ;" Colour ";G$ 

2950 ENDPROC 

2960 : 

2970 DEFPROCinit 

2988 VDU 23,224,204,204,51,51,204,204,5 
1354 

2990 VDU 23;10,32;0;0;0; 

3000 VDU 29,16;176; 

3010 VDU 19,1,3;90;19,2,1;0;17,3 

3020 MOVE -16,-16 B 

3030 PLOT 1,824,0:PLOT 1,8,792 

3040 PLOT 1,-824,0:PLOT 1,Ø,-792 

3050 FOR N%=2 TO 26 STEP 2 

3060 READ LS,AS$ 

3070 PRINTTAB (30-LEN (LS) ,N2) ;LS;" ":AS 
3080 NEXT 

3090 G%=1:H%=Ø:?1%=Ø 

3100 X$-0:Y$-20:B2$-0 

3110 *KEY 10 1!&1900-1&70|M PAGE-&1400|M 
OLD|M PRINT'"Type:"''"*SAVE «file» 2B00 
2FFF"''"to recover logo"'|L|M 

3120 ENDPROC 

313Ø : . 

3140 DEFPROCClear 

3150 FOR N$-0 TO 1184 STEP 4 

3160 D%INS=Ø:NEXT 

3170 VDU 24,0;0;792;768;16 

3180 x%=Ø:y%=9:B%3=Ø 

3190 PROCon 

3200 ENDPROC 

3218 : 

3220 DEFPROCerror 

3230 VDU 2,1,27,1,65,1,12,3 

3240 IF ERR=17 THEN ENDPROC 

3250 IF ERR«128 CLS:REPORT: PRINT" at li 
ne ":ERL:GOTO 199 

3260 PROCdelstat 

3270 *FX 21 

3280 PRINT TAB(Ø,27)::REPORT: PRINT" - P 
ress a key" 

3290 k%=GET 

3300 PRINT TAB(@,28) ;SPC(39) 

3310 ENDPROC 

3320 : 

333Ø DATA Z,Pixel on,X,Pixel off 
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3390 DATA Ret,Draw line,C,Clear 


334Ø DATA B,Block,H,Hatching 
3350 DATA F,Fill,I,Indent 

3360 DATA P,Printout,M,Multiple 
3370 DATA L,Load,S,Save 

3380 DATA "Ø,1",Colours 


10 REM Program WORDWISE/+ CONVERTER 
20 REM Version Bl1.2 

30 REM Author Jonathan Temple 

4Ø REM Beebug Jan/Feb 1987 

5Ø REM Program subject to copyright 
60 : 
1ØØ MODE 6 
110 HIMEM=&4E90 
120 W%=HIMEM:D%=HIMEM+&DØØ 
130 PROCload 
140 PROCconvert 
150 PROCsave 
160 END 
170 : 
1000 DEFPROCload 
1010 REPEAT 
1920 CLS | 

1Ø3Ø INPUTTAB(Ø,3) "Filename: " FS 
1040 UNTIL FS>"" AND LEN(FS)<8 
1950 S&700-"L. H."+FS+" "4+STRS~DS 
1060 X%=Ø:Y%=&7:CALL &FFF7 
1878 ENDPROC 

1080 : 

1090 DEFPROCconvert 

1100 PRINT''"Please wait" 
1110 P$zW$:1I$-?D$ 

1120 ?P%=27:P%?1=65:P%22=8 
1130 P%=P%+3 

1140 FOR K%=11 TO Ø STEP -1 

1150 IF I%>Ø FOR L$-0 TO I%-1:P%?L%=32: 


NEXT: P$-P$-4I$ 


1160 ?P%=27:P%?1=76:P%?2=198:P2%?3=Ø 
1178 P%=P%+4 

1180 M%=D%+K%*99+1 

1198 FOR J%=8 TO 98 

1200 ?P%=M%?J%:P%?1=M%7J% 

1210 P3=P%+2: NEXT 

122Ø ?P%=1Ø:P%=P%+1:NEXT 

1230 ?P%=27:P%?1=65:P%?2=12 

1240 P%?3=27:P%?4=106:P%?5=255 

1250 P$?6=27:P%?7=1Ø6:P%78=33 

1260 P$-P2410 

1278 ENDPROC 

1280 : 

1290 DEFPROCsave 

1300 S&700z"S. W."+FS+" "4STRS~WSt" "4g 


TRS” PS 


1319 X3=Ø:Y%=&7:CALL &FFF7 
1320 PRINT''"Conversion complete" 


1330 ENDPROC mE 
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Reference information in a compact form can save hours of searching through the 
growing number of BBC Micro and Master Series reference works. From time to time we 
will be presenting various tables of useful information for quick reference use. It 
is hoped that you will find these sufficiently useful to photocopy so as to have 
them instantly to hand. We start this month with a collection of operating System 
calls, addresses and vectors. Our major sources for this are the Beebug Reference 
Card, the BBC Micro Advanced User Guide and the Master Reference Manual Part One. 


Vector Vector Function 

name address 

USERV 200 Reserved for user routines 

BRKV 202 Break vector 

IRQIV 204 IRQ vector 

IRQ2V 2Ø6 Unrecognised IRQ vector 
OSCLI FFF7 CLIV 208 Interpret the command line 
OSBYTE FFFA BYTEV 20A Miscellaneous OS operation 
OSWORD FFF] WORDV 20C Miscellaneous OS operation 
OSWRCH FFEE WRCHV 20E Write character to screen 
OSNEWL FFE7 | Write LF CR to screen 
OSASCI FFE3 Write character to screen 
OSRDCH FFEØ RDCHV 21Ø Read character from keyboard 
OSFILE FFDD FILEV 212 Read or write complete file 
OSARGS FFDA ARGSV 214 Read or write data about file 
OSBGET FFD7 BGETV 216 Read single byte from file 
OSBPUT FFD4 BPUTV 218 Write single byte to file 
OSGBPB FFD] GBPBV 21A Read/write block of bytes to file 
OSFIND FFCE FINDV 21C Open or close a file 
GSREAD FFC5 Read a byte fro a string 
GSINIT FFC2 Initialise GSREAD string 
OSEVEN FFBF Generate an event 
OSRDSC FFB9 Read a byte from screen or ROM 

(more commonly known as OSRDRM) 

OSWRSC* ` FFB3 Write a byte to screen 

FSCV | QTE Filing system control vector 

EVENTV 220 Event interrupt vector 

UPTV 222 User print routine vector 

NETV 224 Econet vector 

VDUV 226 Unrecognised VDU command vector 

KEYV 228 Keyboard control vector 

INSV 22A Buffer insert vector 

REMV 22C Buffer remove vector 

CNPV  22E Buffer count/purge vector 


* Master series only 


SEEN NG NE 


Two of the diagrams published with this article in BEEBUG Vol.5 No.7 may not be as 
clear as they should be. In Fig.! the lead connecting the probe is connected ONLY to 
the 6264 RAM (pin 27, which also has the 10K Ohm resistor attached). In Fig.5, pin 
26 of the 2764 should show N.C. = Not Connected - and not A13, while pin 15 should 


show D3 (not D5). 
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Peter Rochford starts the first of a 
regular series of bi-monthly reports 
on the communications scene by 
revealing the details of a new view- 
data service soon to be launched 
nationwide. 


This month's issue of BEEBUG sees the 
launch of Our section devoted to 
communications, an area of fast-growing 
interest to many micro owners. It will be 
a bi-monthly feature and naturally be 
biased towards owners of the BBC B and 


Master Series computers. 


We hope to provide a wide range of 
features for you, including teach-ins for 
those . new to comms, reviews of new 
hardware and software, a look at the 
various dial-up services available, 
regular gossip and chat from the comms 
scene, and we'll try to answer questions 
and queries on any aspect of comms. For 
the latter we need YOU. So, if you have a 
particular problem with your comms setup 
or if there is anything to do with comms 
you are puzzled about - write to us! We 
will try to fit as many letters and 
answers in as we can. Address your letters 
to The Comms Spot at BEEBUG's St.Albans 
address and they will be forwarded onto 
me. 


To kick off this new section, we have 
news of a viewdata service being launched 
that is claimed to be far more powerful 
than Prestel and with potentially much 
wider appeal. 


EPNITEX 

Those who subscribe to Prestel, BT's 
own dial-up viewdata service, may already 
know of an Information Provider called 
Timefame International.  Timefame was one 
of the first IPs on Prestel and had a 
large database providing on-line services 
to many large businesses. 


Alongside these business services, 
Timefame ran its bulletin board section 
where any Prestel user could fill in a 
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response frame and write his or her 
opinions on a range of subjects for others 
to see. The frames were routed in a 
carousel fashion, and appeared within. 
seconds of being sent. In this way, people 
from one end of the country to the other 


could exchange opinions, ideas and 
information. 
All this was free of charge, and the 


area was very popular on Prestel, giving 
Timefame the number one slot for highest 
frame accesses of any IP. Areas on the BB 
included Letterbox for general topics 
whilst others were for special interests, 
including Microboard for computer users. 
Microboard was VERY popular and used by 
many Beeb owners. 


I have been using the past tense when 
describing Timefame's activities on 
Prestel, as they have now quit the system 
after a disagreement with BT over the 
conditions of their contract. 


Timefame are now to launch their own 
viewdata service called Epnitex which 
should be up and running by the time you 
read this. I hope in next month's magazine 
to give you a full run down on what it has 
to offer after I have been allowed to take 
a look round it. 


Meanwhile, after a telephone 
conversation with  Timefame's MD, Roy 
Norman, I can give some details about what 
to expect from Epnitex. I should point out 
that he was being rather guarded about all 
the features of the new system until its 
launch. So what follows I am assured, is 
only a small part of what Epnitex has to 
offer. 


The format for Epnitex will be of the 
viewdata standard, like Prestel. Therefore 
those already using Prestel can utilise 
existing equipment and software to access 
it. However, Epnitex it is claimed, will 
have far more powerful and extensive 
facilities than Prestel. For example, 
those who use Prestel will know what a 
chore it can be sometimes to work your way 
through menu after menu to reach a desired 
area or frame. Epnitex will feature a very 
sophisticated word-search system that can 
find any particular area by entering its 
name. In fact you don't have to enter all 
of the name, as just enough to distinguish 
and identify it will do. 
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There will be no frame charges on the 
new system, which I find surprising, and 
no electronic mail charges either. How IPs 
are to get revenue without frame charges I 
do not quite understand. 


On the subject of IP's, it is 
interesting to note that after their row 
with BT on Prestel, Timefame are at pains 
to stress that IPs on Epnitex will face 
far less restrictions on what they can do. 
This applies to both the content and the 
updating of an IP's database. On Epnitex, 
IP's can do their own updating with the 
very simplest of terminal software and all 
changes are instant. 


One important feature that any IP would 
welcome is the ability to restrict access 
to any part of their database without any 
need to contact Timefame. It can all be 
done remotely from the IP's own terminal 
and makes the setting up of closed user 
groups really very simple and quick 
indeed. 


Timefame say the mailing system, called 
Epnimail is far more sophisticated than 
Prestel's mailbox system. Mailbox frames 
will allow a far larger number of 
characters to be used and without the loss 
of room after using ESC codes (Escape 
codes are an essential part of Prestel 
because it is based ona 7 bit system - 
Ed) . 


Extensive wordprocessing facilities 
will be available when entering text, 
allowing for example, insert/overwrite and 
wordwrap. Wordwrap is something Prestel's 
mailbox frames lack, and this has always 
infuriated me. 


Something else that infuriates me is 
that whilst on-line to Prestel, a user 
never knows when mail has entered his 
mailbox unless he checks it. On Epnitex, 


the status line at the bottom of the 
screen will inform you whenever mail 
arrives. 


Eonilink is the name of the service 
primarily provided for business users. 
This will allow editing of frames by IPs 
with instant updating. This has great 
potential for companies wishing to 
transfer information to various offices 
around the country and operate a real-time 


also be used for 


display. It can 
transferring large amounts of data for 
updating a user's own computer database. 


Micro enthusiasts will be glad, and 
hardly surprised I feel, to know that 
Epnitex will feature a large area devoted 
to computing. Timefame is well aware that 
micro owners have massively swelled the 
number of Prestel subscribers thanks to 
Micronet. Information on what exactly 
Epnitex will offer to micro enthusiasts 
was not forthcoming from Timefame, except 
that they will offer everything that 
Micronet is doing and much more. 


The popular Microboard from Timefame's 
Prestel days will be a definite feature, 
with | many enhancements. These will 
naturally mean a far larger area will be 
available than when operated on Prestel 
and with greater speed too. 


What equipment  Timefame is using to 
implement  Epnitex is another secret that 
they are keeping safe. Roy Norman would 
only say that a large investment has been 
made in hardware and software. Initially, 
the system will operate at two baud rates, 
1200/75 as does Prestel, and at 1200/1200, 
the latter allowing both IP's and 
subscribers to transmit information back 
at a realistic speed. By February 1987, 
Timefame hope that a 2400/2400 baud 
service will be available too. Let's hope 
that the price of the hardware to provide 
access at 2400/2400 soon becomes realistic 
enough for domestic users to take 
advantage of such a service! 


Two important questions to be answered 
are, how national access to the system at 
local call rates will be arranged, and 
what will be the cost of subscribing to 
Epnitex? Next month I should have the 
answers to these questions and full: 
details of what Epnitex has to offer. ` 


Timefame is making bold claims that 
their service will be significantly better 
than Prestel. To better Prestel in terms 
of facilities is not hard, as that system 
was created several years back and now 
shows its age. Timefame will have to 
convince both potential IPs and 
subscribers, that their extra facilities. 
make Epnitex a worthwhile proposition. We 


shall see. 
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Alan Dickinson concludes the deve- 


lopment of the BEEBUG Business 


Graphics system by adding two fur- 
ther display routines, and showing 
how data can be imported from 
other databases. 


In the first of these three articles 
we presented a program to draw high 
quality business graphics on the BBC 
micro. In part two we added an easy-to-use 
screen-based editor. This final article of 
the series provides some refinements to 
the graphic capabilities (3D graphs and 
pie charts), and discusses ways in which 
you could develop the program further. 


The additional code given this month 
should be appended to the program that you 
have already built up with parts one and 
two. To do this, follow the instructions 
given last month for appending part two to 
part one, or refer to the section on 
merging programs in your User Guide. If 
you have kept to all the original line 
numbers, then you should find no problems. 


The additional graphics features 
provide 3D 'pillar' charts and pie charts 
(see illustrations). Both are outline 
charts only, i.e. patterning information 
is not used. The pie chart will show how 
data is shared between variables for the 
first 'ON' column. These features are 
already referred to within the screen- 
based editor, and you only need to delete 
line 1975 to activate these two remaining 
graphics features once the new code has 
been added (lines 3050 to 4099). 


Lines 1950 to 1960 provide a routine 
to save a Screen dump to disc. You could, 
for example, then enhance this image with 
a paintbox program, and perhaps create a 
presentation sequence of slide images. If 
you are using shadow RAM or similar, you 
will need to customise this routine to 
suit your own hardware. If you have a ROM 
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capable of doing a screen to printer dump 


then you may prefer to replace the 
contents of this routine just with a call 
to PROCdis followed by the star command 
needed for your screen dump. 


Further, lines 1800 to 1940 contain a 
routine to import a data file prepared 
using the BEEBUG spreadsheet program in 
Vol.3 Nos.9 & 10 (it only accepts data 
from the first 13 columns and 7 rows of 
the spreadsheet). You could, of course, 
write a similar routine to import data 
from any other file which contains  infor- 
mation suitable for display in chart or 
graph form. It is the array N(12,6) - 13 
by 7 - that holds the data. Rewriting the 
import routine to read any other data into 
this array will then allow it to be dis- 
played with the Business Graphics program. 


The complete program can just squeeze 
into a standard model B with DFS, hence 
the cryptic nature of variable names and 
the lack of comments. Users of an &EØØ 
DFS, such as the Kenda DMFS, or a Master 
or Compact, will find that they have 
enough RAM left over to add new features 
such as customised import routines. Shadow 
RAM could also be used to enhance the 
program considerably. In particular, the 
code could be modified to use mode 1 (or 
129) and produce full colour graphics. 


. The graphics extension ROM (or the new 
graphics routines in the Master and Com- 
pact) could be put to good use by very 
much simplifying the patterning routines, 
and would allow pie charts and 3D charts 
to be patterned as well. Owners of a 
Master or Compact should be able to 
produce a very polished version indeed. 
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Note should be taken that this program 
has used the page of memory starting at 
&900. Cassette system users may prefer to 
change this to &DØØ. If memory permits,it 
would be better. to DIMension a block of 
memory and use peeks and pokes in a legal 
and system independent manner. 


1800 DEFPROCimp: £S=FNzc ("FILENAME" ,£$,8 


Eum s inp eni pera 

18108 LOCALC$,P£,0$, XS Y% Z2: INPUTHAS 
rX% 

1820 X%=X%-] :IFX%>12C%=12:ELSEC%=X% 
1830 Y%=Y%-]:IFY%>6V%=6: ELSEV3=Y% 

1840 FORZ%=ØTO2ØØ: INPUT#A3 , ZS: NEXT 

1850 FORPS=0TOV3: V% (PS) =1 

1860 FORQ%=ØTOC%:C%(0%)=1 

1870 INPUTHA%,N(Q%,P%) 

1880 NEXT: IFC%<XSFORQ%=C%+1TOX%: INPUT#A 
% , 23: NEXT 


puo WORLD STOCK gode eT 
; Meekig trading : 


1890 NEXT: IFVS<YSFORP%=V%+1TOY%: INPUT#A 
S% Z% NEXT 

1990 E : INPUT#A% , VS (Q2) : NEXT 
191Ø IFV%3<YSFORQS=V%+1TOY%: INPUT#A%, Z$: 
NEXT | 

1920 FORP%=ØTOC%: INPUTHA,CS(P%) ,Z%:NEX 
T 

1930 IFCS«X$FORP$-C24]TOX$:INPUT4A$,29$, 
Z9:NEXT 

19480 CLOSE#F%: ENDPROC 

1958 DEFPROCdump: DS=FNzc ("FILENAME" ,DS, 
8) : IFDS=""ENDPROC 

1960 LOCALX% , Y%: PROCdis: S&90G="SAVE "+D 
$4" 5800 TFFF":X%=Ø:VY%=9:CALL&FFF7:ENDPR 
oc 

2620 DEFPROCCcube:GCOL0,1:s2$248*V$ 

2630 MOVEP%,Q%:DRAWP%,S%:DRAWP%+5%,5%+s 
%3 DRAWRS+S% ,S3+S% 3 DRAWR%+5% ,Q3+S% : DRAWR% 
; 03: DRAWPZ , Q% 3 ENDPROC 

3050 DEFPROCthreeD (n) 


FMc—Lenden 24x. | 
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3060 x1%=P%+X*n%+s%:y1%=5%-48 

3070 FORK$-6TOUSTEP-! 

3080 LEV%(K%)>@ PROCpillar (x1%3,FNypos (Ø 
)*yl2$,xl94X,FNypos (N(J$,K2) ) +y1%) :x1$-x1 
$-48:yl$zyl$-48 

3090 NEXT: ENDPROC 

3280 DEFPROCpie:GCOLØ,1 : LOCALA%S JER På 
%:A$=9999:B%=A%:x%= (PS > +R) /2: ae S2)/ 
aii Z2 log: MOVEX% py3+xr% 

3290 FORJ=9TO2* PI STEPPI/31 2 x=x3+r3*SIN 
(j) :yzy$*r$*COS (j) :DRAWx ,y : NEXT: DRAWX$ ,y 
$4r$:DRAWx$,y$ 

3300 c=Ø:FORJ3=ØT06 

3319 IFV%(J%) >@PROCSlice (J£) 

3320 NEXT: ENDPROC 

3330 DEFPROCslice (J%) : LOCALI$,K%,L 

3340 pa=c*2*PI/csum:c=c+N (D3 ,J%) 

3350 a-c*2*PI/csum:L- (pata) /2 

3360 MOVEx3 ,y%: DRAWx3+r3*SIN (a) ,y%+r3*C 
OS (a) 

3370 MOVEx%+r%*SIN(L) ,y3+r3*COS (L) 

3380 X$-x$ MR E UNE Y%=y%+(xr%+16) 
*COS (L) : DRAWX% , Y%: IFL>PI K$--] ELSEK3=1 

3390 Pas e NM $=Y%+4 

*K% : IZ=4*K%: REPEAT: YS=YS—4*KS2 I%=1%-4*K% 

34ØØ UNTIL (A%<>X3) OR ( (B2-Y2) *K2»40) 

3410 PLOTI,K2*8,I2:A$zX2:B2-Y$ 

3420 pc$-N (D$, J$) /csum*10040. 5 

3430 pS=VS(J%) +" “+STRS (pc$) -"$":PLOTO, 
8*K%,16: IFK3=]PROCtxt (p$,145,0,0) ELSEPRO 
Ctxt(p$,161,Ø,Ø) 

3440 ENDPROC 

4050 DEFPROCpillar(A$,B$, ZQ) 

4060 GCOLØ,Ø:MOVEAS,B%:MOVEP% ,B% 

4978 PLOT85,A%,0% : PLOT85, P$+48 ,B%+48: PL 
OT85,A%+48,0%+48: PLOT85,P%+48,0%+48 

4080 GCOLØ, 1 : MOVEA3 ,0Q0%:DRAWP% ,0%:DRAWP% 
;B%: DRAWA% , B3: DRAWAS , Q3: DRAWAS+48,0%+48: 
DRAWP2--48 , Q2--48: DRAWP3+48 ,B3+48 : DRAWPS ,B 
%sMOVEP$ ,Q%: PLOT] , 48,48 

4090 ENDPROC 


ucted last month's 
M module, or already 


IM chin C. C. Radcliffes multi- 
uffer utility will prove invaluable. 


Sideways RAM is a popular add-on for 
many BBC micro users. Indeed, | our 
constructional article last month (Vol.5 
No.7) provides a very economic way for 


readers to add sideways RAM to their 
machine. Even so, many users may still 
wonder if sideways RAM can provide any 


real benefits. 


One obvious, practical use is to 
extend one or more of the existing buffers 
(a buffer is an area of memory where the 
machine queues bytes to be sent to an 
external or internal I/O device, for 
example the printer, or the sound 
generator). Using sideways RAM in this way 
will greatly improve the performance of 
your machine, particularly when outputting 
to a printer. 


The program listed in this article 
will allow the use of sideways RAM as a 
buffer for the keyboard, RS423 input or 
output, printer, sound channels @ through 
3, or speech. The maximum buffer size is 
over 15K, with 16K of RAM fitted, the rest 
of the sideways RAM being occupied by the 
program itself. 


The program should work on any ROM 
board with RAM fitted, and has been tested 
on an ATPL Sidewise board, and with the 
BEEBUG sideways RAM module. It can be 
configured to suit either 8K or 16K of 
RAM, though the 8K should start at &8000. 


USING THE PROGRAM 

Type the program in and save it. Next, 
run the program, and if all is well there 
will be a pause while the machine code is 
assembled. This is followed by some 
requests for configuration data. 
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First you are asked to select the 
buffer size. Three options are offered: 

Maximum with 16K SWRAM 

Maximum with 8K SWRAM 

Enter limits 


Select your option with the cursor keys 
and then press Return. The first two 
options define the buffer area 


automatically as the end of the machine 
code up to &BFFF or &9FFF respectively. 
The third option allows the buffer limits 
to be specified by the user, but if the 
lower limit is set below the bottom 
address of the assembled program, the code 
will be corrupted. 


You will then be asked to select the 
buffer you want to extend. All 9 buffers 
supported by the OS can be extended, but 
only one at a time. 


The program will then save the code 
with the correct configuration data and an 
EXEC file. The EXEC file is intended for 
use with a !BOOT file or it may be called 
separately. When *EXECed, it will load the 
code, set the ROM type byte in the ROM 
information table, and switch on the 
buffer. Setting the ROM type means that 
the OS will recognise the presence of the 
code, stored in part of the sideways RAM. 


The names of the files used depend on 


the DuL Ter ume elected as zo Ne. 


Buffer M/C file 


EXEC file | 


M.KBXBUF 
M. RIXBUF 
M. ROXBUF 
M. PRXBUF 
M. SØXBUF 
M.S1XBUF 
M.S2XBUF 
M. S3XBUF 
M.SPXBUF 


S.KBXBUF 

$ .RIXBUF 

$ . ROXBUF 

$. PRXBUF 

$ .SØXBUF 
S.S1XBUF 
S.S2XBUF 
S.S3XBUF | 
S 238 


Keyboard 
RS423 input 
RS423 output 
Printer 
Sound ch.Ø 
Sound ch.1 
Sound ch.2 
Sound ch.3 
Speech 


The code can also p» loaded by 
*LOADing the appropriate file. If «Break» 
is then pressed, the OS will initialise 
the buffer code. However it is set up, an 
extended buffer can then be switched on 
and off with the commands *XBUF ON, and 
*XBUF OFF (abbreviations follow normal 
*command rules, and lower case is 
acceptable). Note, however, that the ON 
command re-initialises all the pointers, 
So any previously stored bytes will be 


in a program 
is empty, an OSBYTE 
call with A-&80 and X=255-(buffer number) 


lost. If you wish to check 
whether the buffer 


will return the character or space count 
for input and output buffers respectively, 
in X and Y (lo-byte and  hi-byte). 
Alternatively, an OSBYTE call with A=&98 
with X=buffer number will return C=] if 
the buffer is empty. 


Those interested may wish to modify 
the program to extend several buffers at 
once (e.g. all 4 sound channels). This 
will require a table of pointers and , more 
extensive buffer number checking at the 
start of each of the handling routines. 


We appreciate that this 


à 


REM PROGRAM EXTENDED SWRAM BUFFER 
REM Version Bl.I 

REM Author C.C.Radcliffe 

REM BEEBUG  Jan/Feb 1987 

REM Program subject to copyright 


REM.*** Assemble M/Code *** 
PROCassemble 
REM *** Configuration *** 
MODE7 
PROCinit 
PROCtitle 
PROCsize 
PROCbuffer 
PROCsave 
198 *FX4,0 
200 END 
218 : | 
1000 DEF PROCassemble 
1010 LOCAL I$ 
1020 oswrch=&FFEE 
1030 osnewl=&FFE7: osbyte=&FFF4 
1949 insv=&22A:remv=&22C:cnpv=&22E: vect 
=&02Ø90 : 2p=&F6 
1650 FOR I$-0 TO 3 STEP 3 
1060 P$-&8000 
[OPT I$ 
. ram: BRK: BRK: BRK 
JMP serviceentry 
OPT FNequb (&82) 
OPT FNequb (&13) 
OPT FNequb (&@1) 
.title:OPT FNequs ("XBUF") 
BRK:OPT FNequs (" 1.090") 
BRK:OPT FNequs("(C) 1986 BEEBUG"): 


1970 
1989 
1898 
1188 


.Serviceentry:PHP:CMP #4 


is af 
| particularly long program, but it is a | 
| most useful utility for all sideways RAM | 
| users. The program is included on this | 
th's magazine cassette/disc. | 


1178 
1189 
119Ø 
1200 
1218 
1220 
12398 
1249 
1250 
1260 
1270 
1280 
1296 
1389 
1318 
1320 
1330 
1349 
1350 
1360 
1370 
1380 
1390 
1400 
1418 
1420 
1430 
1440 
1459 
1460 
1478 
1480 
1499 
1500 
1518 
1520 
1530 
1548 
1550 
1560 
1570 
1580 
1598 
1600 
1619 


BEQ unreccom:CMP #9:BEQ help 
PLP:RTS:.help: PHA: TXA: PHA: TYA 
PHA:JSR osnewl:LDA 4&80:STA flags 
LDX #&FF:JMP unrecogloop:.helpmsg 
LDX #Ø: .titleloop:LDA title,X 
JSR oswrch: INX:CPX #10 

BNE titleloop:JSR osnewl 

JSR osnewl:LDX #@: .helploop 

LDA helptext,X:CMP 40 

BEO linefeed:JSR oswrch: INX 

JMP helploop:.linefeed:JSR osnewl 
JSR osnewl:BIT flags:BVS out 

JMP exit:.out:LDA #Ø:STA flags 
PLA: TAY: PLA: TAX: PLA: PLP:RTS 

. unreccom: PHA: TXA: PHA: TYA: PHA 
LDX #&FF: .unrecogloop: INX 

LDA (&F2),Y:CMP #&41 

BMI notaletter:AND #&DF 
.notaletter:CMP title,X 

BNE abbrev: .paramloop: INY:CPX #3 
BNE unrecogloop:LDA flags 

BMI helpmsg:LDA (&F2),Y:CMP #&41 
BMI notaletterl:AND #&DF 
.Notaletterl:CMP #13:BEQ restore 
CMP #&208:BEQ paramloop 

CMP #ASC ("0") :BEQ paramloop 

CMP #ASC("F") :BEQ restore 

CMP #ASC ("N") :BNE error 

JMP init: .abbrev:CMP #&@D 

BEQ helponly:CMP #&2E 

BNE notthisrom:CPX #] 

BMI notthisrom:LDX #3 

JMP paramloop: .notthisrom 

JMP out: .helponly:LDA #&CØ 

STA flags:JMP helpmsg:.restore 
LDA flags:AND #1:BEQ exit 

LDX oldinsv:LDY oldinsv+1 

STX insv:STY insv+1:LDX oldremv 
LDY oldremv+1:STX remv:STY remv+1 
LDX oldcnpv:LDY oldcnpv+1 

STX cnpv:STY cnpv+1l:.exit 

PLA: PLA: PLA: PLA: LDA flags 

AND #1:STA flags:LDA HØ:RTS 
.error:LDX #8: .perrloop 

LDA parmerrmsg,X:JSR oswrch 


1628 INX:CPX #17:BNE perrloop 

1638 JSR osnewl:JMP helpmsg 

1640 .parmerrmsg:OPT FNequs ("Illegal Pa 
rameter") 

1650 .helptext:OPT FNequs (" Syntax * 


XBUF ON/OFF"):OPT FNequb (&@@) 


1669 
1679 
16868 
1698 
1700 
1718 
1720 
17390 
1748 


einit:LDA flags:AND #1 

BNE saveramno:LDX insv:LDY insv+1 
STX oldinsv:STY oldinsv+1 

LDX remv:LDY remv+1:STX oldremv 
STY oldremv+1:LDX cnpv:LDY cnpv+]1 
STX oldcnpv:STY oldcnpv+1 

LDA flags:ORA #1:STA flags 
.sSaveramno:LDA &F4:STA swramno 
LDX4Ø: .initloopl:LDA mainvoff,X 


1750 
1760 
1778 
17898 
1798 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1878 
1880 
1890 
1900 
19198 
1920 
1936 
194Ø 
195Ø 
1960 
1970 
1980 
19990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
20908 
2100 
21198 
2120 
21398 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
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TAY:LDA extentoff,X:STA vect,Y 
INX:CPX #3:BNE initloop] 
einitloop2:LDA mainvoff,X 
TAY:LDA #&FF:STA vect,Y:INX 
CPX#6:BNE initloop2:LDA #&A8 

LDX HØ:LDY #&FF:JSR osbyte 

STX extvecspace:STY extvecspacet+] 
JSR zpsave:LDY #&FF:LDX fØ:CLC 
LDA extvecspace:ADC extentoff 

STA zp:LDA extvecspace+l:ADC $0 
STA zp+1:.initloop3: INY 

LDA entrytab,X:STA (zp) ,Y:INX 
INY:LDA entrytab,X:STA (zp) ,Y 
INX: INY:LDA swramno:STA (zp) ,Y 
CPX #6:BNE initloop3:.bufinit 

LDA buftop:SEC:SBC bufstart 

STA space:LDA buftop+1 

SBC bufstart+1:STA spacet+]:CLC 
LDA space:ADC #1:STA space 

STA size:LDA space+1:ADC #0 

STA space+l:STA size+1 

LDA bufstart:STA remvptr 

STA insvptr:LDA bufstart+1 

STA remvptr+1:STA insvptr+1 

LDA flags:AND #2:BNE purge 

JMP exit: .purge:RTS:.zpsave: PHA 
LDA zp:STA tempzp:LDA zp-*l 

STA tempzpt+1:PLA:RTS 

ezprestore: PHA:LDA tempzp:STA zp 
LDA tempzp+1:STA zp+1:PLA:RTS 

. insert:SEI:CPX bufno:BEQ pbufins 
JMP (oldinsv) :CLI:.pbufins: PHA 
SEC:LDA space:BNE notfull 

LDA space-*l:BNE notfulll:PLA:CLI 
RTS: .notfulll:LDA space:.notfull 
SBC #1:STA space:LDA spacet+1 

SBC £$0:STA space+l:JSR zpsave 
LDA insvptr:STA zp:LDA insvptr+] 
STA zp*l:LDY #@:PLA:STA (zp) ,Y 
JSR zprestore:PHA:LDA insvptr 
CMP buftop:BNE startinc 

LDA insvptr+1:CMP buftop+1 

BNE startincl:LDA bufstart 

STA insvptr:LDA bufstart+1 

STA insvptr+1:JMP insertexit 
.Startincl:LDA insvptr 
eStartinc:CLC:ADC #1:STA insvptr 
LDA insvptr-1:ADC $Ø:STA insvptr+1 
.insertexit: PLA:CLC:CLI:RTS 

. remove: SEI: PHP:CPX bufno 

BEQ pbufremv: PLP:CLI 

JMP (oldremv) 

epbufremv:LDA remvptr:CMP insvptr 
BNE gexam:LDA remvptr+1 

CMP insvptr+1:BNE gexam:LDA space 
BNE empty:LDA space+1l:BNE empty 
.qexam: PLP:BVC remvchr:JSR zpsave 
JSR setremvptr:LDA (zp) ,Y 

JSR zprestore:CLI:RTS: .empty: PLP 
SEC:CLI : RTS: .remvchr:CLC:LDA space 


2350 ADC #1:STA space:LDA space+1 


2360 
2370 
2380 
2390 
2400 
2419 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2769 
2770 
2789 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 


ADC $0:STA space+1:JSR zpsave 
setremvptr:LDA (zp) ,Y¥:TAY 
zprestore:LDA remvptr 

CMP buftop:BNE ptrinc 
remvptr+1:CMP buftop-*l 
ptrincl:LDA bufstart 
remvptr:LDA bufstart+] 

STA remvptr+1:JMP remvexit 
.ptrincl:LDA remvptr:.ptrinc 
CLC:ADC #1:STA remvptr 

LDA remvptr+1:ADC #@:STA remvptr+1 
.remvexit:CLC: TYA:CLI :RTS 
.Setremvptr 

LDA remvptr:STA zp:LDA remvptr+1 
STA zp+1:LDY HØ:RTS:.countp: SEI 
PHP: PHP:CPX bufno:BEO pbufcnpv 
PLP:PLP:CLI:JMP (oldcnpv) 
.pbufenpv: PLP:BVC count 

LDA flags:ORA #2:STA flags 

JSR bufinit:LDA flags:AND #&FD 
STA flags: PLP:CLI:RTS: .count 

BCC entries:LDX space:LDY spacer] 
PLP:CLI:RTS: .entries:SEC:LDA size 
SBC space: TAX:LDA size+1 

SBC space-]: TAY: PLP:CLI:RTS 
.flags:OPT FNequb (&@@) 

.bufno:OPT FNequb (&@@) 
-Oldinsv:OPT FNequw (&0000) 
eOldremv:OPT FNequw (&ØØØØ) 
eoldcnpv:OPT FNequw (&0000) 
eSwramno:OPT FNequb (&@@) 
.extentoff:OPT FNequw (&423F) 

OPT FNequb (&45) | 
emainvoff:OPT FNequd (&2B2E2C2A) 
OPT FNequw (&2D2F) 
.extvecspace:OPT FNequw(&ØØØØ) . 
.entrytab:OPT FNequd(&00000000) ` 
OPT FNequw (&ØØØØ) 

.tempzp:OPT FNequw (&ØØØØ) 
.Space:OPT FNequw (&ØØØØ) 
.remvptr:OPT FNequw(&ØØØØ) 
.insvptr:OPT FNequw (&ØØØØ) 
.Size:OPT FNequw (&ØØØØ) 
ebuftop:OPT FNequw(&ØØØØ) 
ebufstart:OPT FNequw(&0000) 
.endcode 

] 

NEXT 

?entrytab-insert MOD 256 
entrytab?l-insert DIV 256 
entrytab?2-remove MOD 256 
entrytab?3-remove DIV 256 
entrytab?4=countp MOD 256 
entrytab?5-countp DIV 256 
?buftop=&FF:buftop?l=&BF:?bufstart 


-endcode MOD 256:bufstart?1l=endcode DIV 


256 
2910 
2920 


?bufno=3 
ENDPROC 
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2930 : 

2940 DEF PROCinit 

2950 LOCAL N$ 

2960 DIM text$(11) 

2970 FOR N%=Ø TO 11 

2980 READ texts (N3) 

2990 NEXT 

3000 *FX4,1 

3010 keyS=CHRS (&8B) +CHRS (&8A) +CHRS (&@D) 
3020 hexS="Ø1|23456789ABCDEF"+CHRS (127) + 
CHRS (&@D) 

3030 ENDPROC 

3040 : 

3050 DEF PROCtitle 

3060 PRINT CHRS$133;CHR$157;CHR$130; TAB ( 
9) CHRS 141 ; "BUFFER CONFIGURATION" 

3Ø7Ø PRINT CHRS133;CHRS1573CHRS1 3@; TAB ( 
9) CHRS1 41 ; "BUFFER CONFIGURATION" 

3080 PRINT CHRS133;CHRS157;CHRS13@; TAB ( 
1Ø) ; STRINGS (2Ø,"*") 

3090 ENDPROC 

3100 : 

3110 DEF PROCsize 

3120 LOCAL option% 


3130 PRINTTAB(1,4)"Select Buffer Size :u 


3140 option$-FNselect(0,3,6,1,134) 
3150 ON option% GOSUB 3170,3170,3190 
3160 ENDPROC 

3178 PROCsetsize(16 DIV option?) 
3180 RETURN 

3190 PROCgetsize 

3200 RETURN 

3210 : 

3220 DEF PROCbuffer 

3230 LOCAL option% 


3460 MS=MS+1 
3470 NEXT 


3480 C%=default%-1:L%=C% 

3490 REPEAT 

3500 PRINTTAB (3,startline2-4L2);CHR$32;C 
HRS156;CHRS (colour?); 

3510 PRINTTAB(3,startline%+C%) ;CHRS1 29; 
CHR$157;CHRS$ (colour$); 

3520 REM PRINTTAB (LEN (text$(textno%+C%) 
) +8,startline%+C%)CHRS156 

3530 REPEAT 

354Ø K%=FNkey 

3550 UNTIL ((C%+K%)>=Ø AND (C%+K%)<line 
S%) OR K$-3 

3560 IF NOT(K%=3) L%=C%:0%=C%+K% 

3570 UNTIL K%=3 

3580 -C$-] 

3590 : 

3600 DEF FNkey 

3610 LOCAL KS,K% 

3620 REPEAT 

3630 K%=GET 

3640 KS=CHRS (K3) 

3650 K$-INSTR (keyS$,KS$) 

3660 UNTIL K% 

3670 IF K$-] ==] 

3680 IF K%=2 =] 

3690 =K% 

3700 : 

3718 DEF PROCsetsize(S%) 

3720 LOCAL T$ 

3730 ?bufstart=endcode MOD 256:bufstart 
?1=endcode DIV 256 

3740 TS=&7FFF+S%3* 1024 

3750 ?buftop-T$ MOD 256: buftop?l-T$ DIV 


3240 PRINTTAB(1,1Ø) "Select Buffer Number :" 256 


3250 option%=FNselect (3,9,12,4,131) 
3260 ?bufno-option£-1]:0$-option$ 

3270 ENDPROC 

3280 : 

3290 DEF PROCsave 

3300 LOCAL N%,R%,PS 

3310 RESTORE 4770 

3320 R%=FNsocket 

3330 FOR N%=1 TO O% 

3340 READ PS 

3350 NEXT 

3360 PROCdownload (R$) 

3370 PROCcodesave(P$) 

3380 PROCexecfile(PS,FNromtabadd, FNromt 
ype (R$) ) 

3390 ENDPROC 

3400 : 

3410 DEF FNselect (textno%,lines%,startl 
ine%,default%,colour%) 

3420 LOCAL L%,N%,M%,C%,K%,KS 

3430 M%=startline% 

3440 FOR N%=textno% TO textno%+lines%-1 
3450 PRINTTAB (5,M$) ;CHRS (colour%) ;texts 
(N$) ; SPC (2) ;CHRS (156) 


3760 ENDPROC 

377Ø : 

378Ø DEF PROCqetsize 

3790 LOCAL N%,B%,T% 

3800 FOR N%=4 TO 8 

3810 PRINTTAB(0,N$)STRINGS (40," ") 

3820 NEXT 

3830 PRINTTAB (2, 4) CHRS (134) ; "Enter Buff 
er Bottom Address in HEX," 

3840 PRINTTAB (2) CHRS (134) ;" (&": ~endcode 
;" is lowest available) ";CHRS (133) ;"&"; 

3850 BS=FNHEX (32,5) 

3860 PRINTTAB(2,6)CHRS$ (134) ; "Enter Buff 
er Top Address," 

3870 PRINTTAB (2) CHRS (134) ;"(&BFFF is hi 
ghest available) ";CHRS (133) ;"&": 

3880 TS=FNHEX (33,7) 

3890 ?bufstart=B% MOD 256:bufstart?1=B% 
DIV 256 

3900 ?buftop-T$ MOD 256:buftop?1=T% DIV 
256 

3910 ENDPROC 

3920 : 


3930 DEF FNHEX (X%,Y3) —P28 


fhe Wordwise Plus programming 
anguage gave rise to a number of 
supporting Wordwise Plus utilities, 
including our own Wordease. Can a 
relative newcomer to this field have 
thing mew to offer? Geoff Bains 
has beer finding out. 


Product: Penfriend 
Supplier: Word Processing 
PO. Box 67, Wolverhampton, 


West Midlands. 

Price: £14.95 inc. VAT 
The aptly-named Pen-Friend is a 
Wordwise Plus utility ROM. This in itself 
is nothing unusual; there are many such 
utilities around. However, what 


distinguishes Pen-Friend from the rest is 
that the utilities provided are accessed 
from within edit mode using a menu screen 
that, rather confusingly, overlays part of 
the text area. 


The Pen-Friend ROM is partly machine 
code and partly Wordwise Plus programs - 
stored as ROM filing system files. The 
entire software makes extensive use of the 
segments provided in Wordwise Plus. 


The ROM is initialised with *PEN. This 
loads the main menu routine into segment 
number one, selects edit mode and runs the 
menu. The menu takes up about a quarter of 
the screen, overlapping the text screen. 
After loading, the menu can be run by 
pressing Shift-fl. 


All the other routines are accessed 
via this menu. There are 13 options 
available from the menu. Some of these are 
definitely useful; a few are simply 
baffling as to why they are included. 


The first option is to embed printer 
control codes in a document. This produces 
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a secondary menu allowing underline, 
double strike, bold, Elite, and enlarged 
effects to be switched on or off. In 
itself that is pretty limp. However, three 
further options allow either a default 
Brother (daisy wheel), Epson (dot matrix), 
or user defined ‘printer drivers! to be 
loaded from the ROM or from disc. 


All these effects make use of the 
preset printer sequence facility of 
Wordwise Plus. The 'drivers' merely define 
the effect of these codes at the beginning 
of a document. 


It has to be said an equally efficient 
effect can be produced by using a standard 


document header (which many users do 
anyway) including suitable code 
definitions and inserting the code 
sequences 'by hand'. However, Pen-Friend 


does make it all marginally less arduous. 


The second option on the menu is to 
insert embedded commands at the cursor 
position. Again this is stretching the 
'ease-of-use' aspect of Pen-Friend a bit 
far. All this means is that you can forget 
codes needed for 14 embedded functions. It 
could be argued that these are either 
commonly used and so quickly memorised 
anyway, or more rarely used and therefore 
less useful for inclusion in Pen-Friend. I 
would prefer to see just a pull down help. 
screen of all the embedded commands. 


$ Embedded. va 
Address fin 
"Format. 
Function re 
> puto load e 
uio Save: fus n 
i multi E he 


Pen-Friend 
Geoff ` 


The next option is the 'Status' 
display. This is genuinely very useful. 
The routine produces a display of the 
format of the finished document at the 
cursor position - the indentation, left 
and right margins, page length, top and 
bottom space, header and footer positions, 


pad character, pound sign output 
character, page number, line number p 
cursor position, and the status of the 
justification, paged display and message 
display flags. 


All this is done without recourse to 
the preview mode. When near the end of a 
long document, this routine swiftly goes a 
long way to getting around the what-you- 
see-is-far-from-what-you-get drawback of 
Wordwise Plus. 


The next routine provided by . 
Pen-Friend's main menu is the  'address 
finder'. This is a simple card index type 


of a database with automatic insertion of 
entries found from a search into a 
document. The addresses must be entered 
into five alphabetically sorted Wordwise 
files in a specific format. Rather 
strangely, blank lines in the addresses 
must be filled up with @ symbols. 


When the address finder option is 


selected and a search string (including a 


wild card if required) entered, the files 
are Searched and the matching addresses 
entered at the cursor position. All this 
works well enough, but it seems 
unnecessary for most users. 


The 'Format page" option also seems 
too much trouble for so little gain. Like 
the embedded command routine, this one 
displays active formatting commands in a 
document at the cursor position, and 
inserts a new set at the top of the 
document according to entered parameters. 


The biggest problem is that if this 
routine is called twice, to again alter 
the format, the new set of commands is 
then inserted at the top of the document 
but their effect is immediately cancelled 
by the first set which still remain. 


The next option is the function key 
option. This uses a file of several sets 
of function key definitions (created with 
Wordwise), each set labelled with a 
comment and a number. The routine displays 
all the comments and allows a set to be 
selected and loaded. 


The next two options 
loading 


allow easier 
and saving of documents. The 


.auto-load routine displays a menu of the 
avallable files to be selected with a 
single key press. 


The auto-save routine 


will 


save the latest version of your 
document with a new name created by 
incrementing the last letter through A-Z 
and 1-9. 


However, the next option is another 
gem. Option J will reformat Wordwise Plus 
text into a multi-column document. Up to 
five columns of text across a page are 
possible. This is not up to the standard 
of the InterWord multi-column facility but 
it is well done nonetheless. Unlike the 
dual column routine that accompanies 
Wordwise Plus itself, this routine does not 


Simply divide the text in the middle but 


makes each column on a page read on from 
the previous one, just like a newspaper 
(or, indeed, BEEBUG). 


There are two further options worth 
noting, both providing useful facilities 
for Wordwise Plus users. Option K takes 
the address files used for the address 
finder and will print out address labels 
from them on fanfold label stationary. 
Option L displays a resume of the contents 
of the ten segment areas - like the 
numerous ROM index utilities around. The 
final option is to access * commands. Now 
this really is silly. It takes two key 
presses before a star command is actually 
typed in (Shift-f1 for the menu and * to 
select this option) and two after it has 
done its stuff to return to the text (any 
key then Escape). The normal way of 
issuing * commands requires Escape to get 
to command mode then * and afterwards any 
key followed by Escape to get back to the 
edit mode. That's right: two plus two key 
presses. Just the same. So why the new 
way? | 


There is no doubting that Pen-Friend 
is a well written piece of software and at 
£19 it is reasonably priced as Beeb ROMs 
go. I do, however, question its value to 
many Wordwise Plus users. Anyone, with any 
experience of Wordwise Plus, can perform 
most of the functions Pen-Friend provides 
just as easily (and usually as quickly) 
without it. More amazingly, for a product 
for word processing, from an outfit of the 
same name, the manual is littered with 
mistakes, mis-spellings, and poor editing. 


There are some good points. The 
multi-column and status routines are 
excellent. The auto-save and function key 
routines are reasonable. However, this is . 
not enough to justify the Pen-Friend ROM. 
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ARRAYS 
(Part 1 


Large arrays can consume precious 
memory at an alarming rate. Jacob 
Abboud shows how really large 
arrays can be used in a program by 
storing them on disc, or in sideways 
RAM. 


The limited memory available for the 
programmer on a BBC micro iS a major 
disadvantage when developing serious 
software. This is most evident when 
developing CAD programs or programs which 
require large array storage. The problem 
can be overcome by using a second 
processor (an expensive solution!), or a 
shadow RAM board which increases the 
available program memory irrespective of 
the mode used. Alternatively, procedure 
overlay techniques can be used to reduce 


the overall program size and allow more | 


variables and arrays to .be stored. 


During the development of a program, I 
was faced with the problem of trying to 
run a 13K program which requires 38K of 
array Storage and, to make things worse, 
uses mode Ø for graphical output. The 
solution I came up with is simple, and can 
be implemented using what is called the 
"Virtual Memory' storage technique. This 
method is widely used on mainframes and 
minis to make a computer's memory appear 


larger than it really is. This illusion is 1 


achieved on mainframes by dividing the 
contents of memory into 'pages' and 
storing these pages on disc (hard disc). 
When a program refers to a page which is 
not in memory, the program is temporarily 
suspended, and the missing page is read in 
as quickly as possible. When a program 
modifies the data on a page, the page is 
copied out to the backing store. The 
operating system attempts to meet the 
needs of a program by judiciously moving 
the pages in and out of main memory. 


Although a full implementation of the 
principle is impractical on a BBC micro, 
Since hardware and software (operating 
system) modifications are required, the 
technique can nevertheless be used for 
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array is achieved by the 


storing large arrays. This method is most 
suited for RAM discs, which are becoming 
more popular amongst many users because of 
fast access times, though it will also 
work with normal disc drives, albeit with 
a time penalty. 


Suppose a program uses three floating 
point arrays X, Y, and Z, which are 
dimensioned X(5ØØ), Y(500), Z(500,3). The 
memory required for these arrays is 14.7K, 
since a real number on the BBC micro 
occupies 5 bytes. This will obviously 


leave little room for the program and 
screen RAM, and one is left with the 
dreaded 'No room' error message. The 


problem can be overcome by using the 
proposed method of virtual storage. 


The virtual memory technique can be 
implemented in one of three ways: 

1. Separate random access files. 

2. Stacked random access file. 

3. Paged array/files. 
Each of the above methods has its merits 
and limitations. These will be discussed 
in due course. This month we will look at 
the first method. : 


ARRAY 
B 
(100,3) 


SEPARATE RANDOM ACCESS FILES 


With this method each array is stored 
in a separate disc file. The basic 
technique requires a virtual memory driver 
to be installed before running the main 
program. Access to the elements of each 
inclusion of 
three procedures within the main program. 
To install the driver, type in Listing 1 
and save a copy first. 


When it is run, the program will 
enquire whether a RAM disc is in use, and 
if so issues the appropriate command 
(*RAMDFS <drive>) to  initialise it 
(incidentally, I use the Solidisk 256 


Beebug Jan 


board which runs at 4MHz, and the Solidisk 


DFS2.2; if you use a different RAM disc 
replace the command at line 270 by the 
appropriate command). The program then 
asks for the number of arrays to be used 
(less than or equal to five). Each array 
is identified by a reference number (e.g. 
1,2,3 ...), its dimension(s), and type 
(e.g. integer or real). 


After the information for each array 
has been entered, it is displayed on the 
screen for verification, and the process 
is repeated for each selected array. On 
completion, the program assigns a letter 
(A,B,C,..) as a file name for each array 
before initialising it on the selected 
disc. If you are not using a RAM disc, 
place a formatted disc (DFS or ADFS) in 
the selected drive. 


In order to demonstrate the method, 
let's install a driver for two arrays 
(integer or real) A(1ØØ), and B(1ØØ,3). 
Once the run is completed you can check 
that files A and B have been written to 
disc. You should also find that a third 
file !info has been created. This file 
contains information which is necessary to 
link the driver to the main program. 


The next step is to type in Listing 2 
and save a copy. This program is an 
example of the use of the procedure. It 
demonstrates how the procedures PROCopen, 
FNin, and PROCout should be incorporated 
in your programs, and how to access the 
elements of the arrays on disc.  PROCopen, 


called at the beginning of the program, 
reads the information in  !info into 
locations  &70-&89 and opens the necessary 


files for input/output  (OPENIN). PROCout 
handles the process of writing data to 
disc whilst FNin reads data from disc. 


Accessing an element of an array, say 
A(1Ø,3Ø)=H, is transformed into 
PROCout (18,38,H,"A"). The first array 
specified is always given the name A, the 
second B, and so on. PROCout sets the 
pointer of the file named and then writes 
the data into that location in the file. 
Similarly, to read A(1Ø,3Ø) into H, use 
H-FNin(10,30,"A"), which again sets the 
pointer of the file referenced and reads 
the data. If one-dimensional arrays are 
used, the second dimension should be set 


to 1. Figure 1 is a schematic 
representation of files A and B. The 
demonstration program writes to each 
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location of arrays A and B defined above, 
and then reads the stored values. A timer 
is incorporated to assess the time taken 
by each step. Table 1 shows the time 
taken by RAM, RAM disc, and normal disc. 


Table 1. Time to read 4ØØ bytes 
Although string arrays are not 
included in the programs, they can easily 


be incorporated in the same way provided 
that each string in an array is of the 
same length. This method is very efficient 
for random access and is very easy to use. 
However, the maximum number of arrays (one 
or two dimensional) that can be used at 
any time depends on the filing system; 5 
for the DFS but 1Ø for the ADFS. The 
maximums are set at line 29Ø in the driver 
program and at line 1030 in the 
demonstration program. 


1Ø REM Program VIRTUAL MEMORY DRIVER 
28 REM Version B2.4 

38 REM Author Jacob Abboud 

48 REM BEEBUG Jan/Feb 1987 

50 REM Program subject to copyright 


100 DIM IN(5,5) 

118 0$223:s1$-20:s22-21:ram$-0 

120 FOR I%=1 TO 5:IN(1%,4)=1:NEXT 

130 MODE7 

140 ONERROR PROCerr:CLS 

150 FOR I2-2TO3 

160 PRINT TAB(1,1%) ;CHRS141; VIRTUAL M 
EMORY DRIVER" 


170 NEXT 
180 PRINT'" Version 2.4" 
190 PRINT'" RAMDFS (Y/N) 2": 


2ØØ AS=FNget ("YN") 
210 IF AS="Y" ram3=1:CS="R":GOTO 240 


220 PRINT'" (D)FS or (A)DFS ?"; 
230 CS=FNget ("AD") 
240 PRINT'" Which DRIVE 2s 


250 AS=FNget ("9123") :D%=VAL (AS) 

260 IFCS="D" PROCOSCLi("DRIVE"+AS) ELS 
E IF CS="A" PROCoscli ("MOUNT"+AS) 

270 IF ram%=| PROCoscli ("RAMDFS"+AS) 

280 PRINT'" HOW MANY ARRAYS ?"; 

290 AS-FNget ("123456789") | 
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300 
310 
320 
330 


RINT;"ARRAY (";I$;")";" 


340 


VDU28,0,24,39,VPOS-*] 

n%=VAL (AS) 

FOR I$-] TO n 

CLS: PRINT ' ' SPC12; : VDU&87,&9D, &84:P 
" :CHRS&9C; i owe 


PRINT" (S)ingle or (D)ouble ?";:A 


S=FNget ("SD") 


350 
=2 
360 


IF AS="S" IN(I%,1)=1 ELSE IN(I%,1) 


PRINT'" (I)integer or (R)eal ?";: 


AS=FNget ("IR") 


370 


IF AS="I" IN(I$,2) 20: it$-" INTEGER" 


: PRINT 


380 
INT 
390 


IF AS-"R" IN(1%,2)=l:it$="REAL":PR 


PRINT" Enter size of array ";:IN 


PUTs12:IN(I$,3)-s1$ 


AØØ IF IN(I%,1)=2 PRINT" Second dimen 
sion "++ INPUTS2%: IN(1%,4)=52% 
41Ø CLS 
420 PRINT''" ARRAY";SPC(12) ; I3 
430 PRINT" NAME" ;SPC (13) ;CHRS (64+1%) 
440 PRINT" FIRST DIMENSION ";sl$ 
450 PRINT" SECOND DIMENSION ";s2$ 
460 PRINT" ARRAY TYPE";SPC(7);"«";itS$ 
o" 
470 PRINT''" Correct (Y/N) ?"; 
480 AS=FNget ("YN") 
490 IF AS="N" GOTO 339 
500 NEXT 
51@ PROCinit 
520 PRINT'" Virtual Memory Installed. 
We T 
530 END 
540 : 
1000 DEF PROCinit 
1010 PRINT''" Initialising ..." 
1020 LOCAL K$,J$,I$ 
1038 Z=OPENOUT("!info") 
1040 BPUTHZ,n% 
1050 FOR I%=1 TO n$ 
1060 dd$-IN(I$,1):i1t2-IN(I$2,2) 
1970 s1%=IN(1%,3):s2%=IN(I%,4) 
1080 X=OPENOUT (CHRS (64-12) ) 
1698 FOR K%=1 TO s1% 
11900 IF dd$-2 FOR J%=1 TO s2$ 
1118 IF it$-0 PRINT#X,@ 
1120 IF it$-1 PRINTHX,1E-2Ø 
1130 IF dd%=2 NEXTJ$ 
1148 IF K% MOD 50-0 PRINT TAB (15+5*1%,V 
POS-1) ;K% 
115@ NEXT K% 
116@ CLOSE#X 
1176 BPUT#Z ,64+13:BPUT#Z,S2%:BPUT#Z,it% 


1188 
1198 
1200 
1218 
1220 
1230 


26 


NEXTIS 
CLOSE#Z 
ENDPROC 


DEF PROCerr 
IF ERR<>191 GOTO 1329 


NCT 


init Initialises array files on disc and! 
generate !info file. 
Error handling routine. If Disc 
error 191 option for reformatting 
disc. Change *F8Ø <drive> to 
| appropriate command. 
| get Selective input function. | 
| oscli Passes command to line interpreter. | 


| err 


VARIABLE 


IN() Array specification. 
s1% First dimension. 

s2% Second dimension. 

ram$ Flag for RAM disc. 


| D% Drive number. 
| AS Input string. 
Ins Number of arrays. 


lit% Array type. 

ldd% single or two dimensional array 
| marker. 

| BS OS command used by oscli. 


Demonstration Program 
| PROCEDURES AND FUNCTIONS. 


| open Reads !info, stores array. data, and | 
| open relevant files for | 


input/output. 
out Writes data to array. 
| in Reads data from array. 
time Timer, time elapsed in seconds. 


| 


Number of arrays. 
$,a$ Array reference number. 


| fS Array name. 

| i$ First array dimension index. 

BE Second array dimension index. 
b,b$ Number to be written by PROCout. 


| v,v$ Number read by FNin. 
| N$ Number of bytes to be written. 
$,J$ Counters. 


1240 PRINT'" RAMDISC EXISTS!" 

1250 PRINT'" Reformat (Y/N) ?": 
1260 AS-FNget ("YN") 

1270 IF AS="N" CLS: END 

1288 *ENABLE 

1298 PROCoscli ("F80 "+STRS (D3) ) 
1300 PRINT " Formatting completed" 


1310 ENDPROC 

1320 PRINT'" *** ERROR ";ERR;" **x" 
1330 REPORT 

1340 PRINT" at line ";ERL 

1350 END 


Beebug 


DEF FNget (BS) 

*FX20 Ø 

REPEAT K=GET AND 223:IFK<26 K=K+32 
KS=CHRSK: UNTIL INSTR(BS,KS) 
PRINTKS7:=K $ | 


DEF PROCoscli (BS) 
LOCAL X$,Y$ 
$&700-BS 

X9$z0: YS=7 

CALL &FFF7 
PIPER 


REM Program VIRTUAL ARRAY DEMO 
REM Version B1.8 


REM Author Jacob Abboud 
REM BEEBUG  Jan/Feb 1987 


50 REM Program subject to copyright 

60 : 

100 MODE7 

118 @%=4 

120 PROCopen 

130 TIME-0 

140 PRINT"Writing data to arrays"' 

150 FOR I$-1 TO 100 

160 PROCout(I$,1,I2,"A") 

170 PRINT TAB(1,8);I$ 

180 NEXT 

198 FOR I$-1 TO 100 

200 FOR J$-] TO 3 

210 PROCout (I2,J$, I$, B") 

220 PRINT TAB(l ,9); I$,J$ 

230 NEXT 

240 NEXT 

250 N$-400 

260 PRINT';N$;" Numbers written to VIR 
TUAL MEMORY" 

270 PROCtime: TIME-0 

280 : 

290 PRINT'"Reading data ..."' 

300 I$- 

310 REPEAT 

320 I$-I$-] 

330 PRINT TAB(1,18) ; I$,FNin(I2,1,"A") 

348 UNTIL I$-100 

350 : 

360 I$-0:J2-0 


370 REPEAT 


380 


390 PRINT TAB(1,19);1$, 


I=1%+1:J%=J%+1 


J%,FNin (1%,J%," 


B"):IF J$-3 J$- 


400 
418 
420 
439 
440 
450 
19000 
18019 
1020 
10308 
1949 
1050 
180690 
1978 
1888 


UNTIL I$- 


o 
o 


PROCt ime 
CLOSE#Ø 
END 


DEF PROCopen 

Z=OPENIN("!info") 

n%=BGET+4Z 

IF n%>5 PRINT'Too many files": END 
FOR I$-] TO n% 

£%=BGET#Z: f S=CHRSf S 

I$?&6F-BGET4Z 

13?& 7F=BGET#Z 

IF 192&7F=Ø 1%3?&7F=5 ELSE 1%7&79=6 
PRINT"Opened file ";f$ 
13?&84=OPENIN (f $) 
NEXT 

PRINT ' "> Ready.... 
ENDPROC 

DEF PROCout (1%,3%,b,AS) 

a%=ASC (AS) -64 

0f3=a37&6F*a3?&7F* (1%-1) +a3?&7F* (j 


19Ø 


PTR#a3?&84=0f% 

IF a$?&7F-6 PRINTHa%?&84,b 

IF a%?&7F=5 b%=b: PRINT#a3?&84,b%3 
ENDPROC 


DEF FNin(i%,j%,/AS) 
a%=ASC (AS) -64 
a lx aa 


PTR#a3?&84=0f3% 
IF a%?&7F=5 INPUT#a3%?&84, 
IF a%?&7F=6 INPUT4a2?&84,v: 


DEF PROCtime 
time-(TIME DIV 1ØØ)MOD 60 
PRINT'"Time taken = ";time;" secon 


9 
=V% 


ENDPROC 


3949 
3950 
3960 
3979 
-1) : PRINTTAB (X%,Y%) ; STRINGS (4," ") 


3980 


LOCAL AS,HS 

REPEAT 

HS=FNhex 

IF ASC (HS) =127 AS=LEFTS (AS, LEN (AS) 


IF NOT (ASC (HS)=13 OR ASC (HS) =127) 


AND LEN(AS)<4 AS=AS+HS 


3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 


4090 : 


4100 


PRINTTAB (X2, Y$) ; AS | 
UNTIL ASC(HS)=13 AND LEN(AS)=4 
=EVAL ("&"+AS) 

DEF FNhex 

LOCAL KS 

REPEAT 

KS=GETS 

UNTIL INSTR (hexS,KS) 

=KS 


DATA "Maximum with 16K SWRAM","Max 


imum with 8K SWRAM","Enter limits","Ø-Ke 
yboard","]-RS423 input","2-RS423 output" 
,"3-Printer" 


4119 


DATA "A-Sound channel Ø","5-Sound 


channel 1","6-Sound channel 2","7-Sound 
channel 3","8-Speech" $ 


4129 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 


END 

DEF FNsocket 

LOCAL NS,N%,X%,Y%,A%,C% 
Y$-&10 

REPEAT 

Y$-Y$-] 

NSz"" 

FOR N$-&9 TO &C 

! &FO=N%+8& 8ØØØ 
NS=NS+CHRS ( (USR (&FFB9) AND &FF) ) 
NEXT 

UNTIL NS="XBUE" 


=Y% 
bd 


DEF PROCdownload (S$) 
LOCAL A$,B$,C$,N$,X$,Y$ 
PRINTTAB (5,22) "Downloading and sav 


ing Code" 


4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 


PRINTTAB (5) "Current Address :". 
VDU 28,25,23,35,23 
Lcode%=endcode-&8ØØ1 
$-S$ 
FOR N$-0 TO Lcode% 
!&F6=N3+& 8090 
B%=USR (&FFB9) AND &FF 
N2?&6000-B2 
IF (N$ MOD &40)-0 PRINTTAB (0,9) "&" 


; (N$4-&8000); 


4390 
4400 
4419 
4420 
4430 
4440 


NEXT 
VDU26,31,0,24 
ENDPROC 


DEF PROCcodesave (P$) 
LOCAL X$,Y$ 


«— 21 
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4450 5&9ØØ= ("SAVE M."+PS+"XBUF 6000 +"+ 
STRS” (Lcode%+1)+" 8000 8000") :X3=Ø:Y3=9: 
CALL &FFF7 

4460 ENDPROC 

4470 : 

4480 DEF PROCexecfile(PS,AS,TS) 

4490 LOCAL X%,1%,N%,SS 

4500 X%=OPENOUT (PS+"XBUF") 

4510 FOR I1%=Ø TO 2 

4520 IF I$-0 SS="*LOAD M."+PS+"XBUE" 

4530 IF I%=1 SS="?2&"+AS+"=&"+T5 


4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 


4700 : 


4710 
4720 
4730 
4740 
4750 
4760 
4710 
4780 
4790 
4800 
4819 
4820 
4830 
4840 
4850 
4860 
4870 
4889 
4899 
4999 
4919 
4929 
493Ø 
494g 
4959 
4960 


4978 : 


4980 
4990 
5000 
5010 


IF I$-2 S$="*XBUF ON" 

FOR N$-] TO LEN(SS) 
BPUT#X% , ASC (MIDS (SS,N%,1)) 
NEXT 

BPUT#X% , 13 

NEXT 

CLOSE #X% 

ENDPROC 


DEF FNromtabadd 

LOCAL P%,X%,Y%,A% 
A%=&AA: X%=Ø: YS=&EF 

PS=USR (osbyte) 

P$-(P$ AND &FFFFØØ) DIV &100 
P$-P$-R$ 

-STRS^ (P2) 


DEF FNromtype (R%) 
LOCALX$,Y$,A£$,C$ 

Y$-R$ 

1&F6-&8006 
=STRS" ( (USR (&FFB9) AND &FF)) 


o P 
DATA KB,RI,RO,PR,S9,S1,S2,53,SP 
DEF FNequb(byte%) 
?P$-byte$ 

P$-P$-4] 

=I% 

DEF FNequw (words) 
?P%=word% MOD 256 
P$?l-word$ DIV 256 

P$-P$42 

=I% 

DEF FNequd (dword%) 
?P$-dword$ MOD &1Ø9 
P$?]-dword$ DIV &19Ø 
P$?2-dword$ DIV &1ØØØØ 
P2?3-dword$ DIV &1ØØØØØ9 
P%=P%+4 


-I$ 


DEF FNequs (string$) 
SP$-string$ 
P$=P%+LEN (StringS) 


-I$ 


BC anda 


| R. B. Coats 


This book, which can be used with both the BBC and Acorn Electron computer will appeal to 
those teaching assembly language programming as part of a computer studies course, and 
their students, who want to extend their knowledge beyond BASIC into assembly language. 
1985 288 pages illustrated 

£12 paper 0713135506 


racer 

R.B. Coats 

A special program to help in learning assembly language, developed by the author for use with 
his book. Available on disk (40 track) for Model B and Electron. 

£8.50 + VAT 


R. B. Coats 

Using simple examples throughout, the reader is taught to program in BASIC. 
1983 256 pages illustrated 

£7.30 paper 07131 34976 


MICROTAB = an all-purpose statistical package 


P. G. Higginbotham 


This comprehensive integrated software package for statistics and data analysis is designed to 
run on the BBC (Model B) microcomputer, easy for beginners and experts. 

1985 Floppy disk and 96 pages manual £33 + VAT 

80 track 0713136018 40/80 track 07131 3549 2 

Additional manuals are available from the publisher 

£5.50 07131 3560 3 


ivanced Statistical Analysis on BBC 
Aicrocomputers 
N.W. Please 


Probable publication February 1987 208 pages approx 
£12.50 approx (book and disk) 07131 3566 2 


NEL 3 

| patible modems. 
| Command is a very special 
| command driven communi- 
| cations ROM, with a powerful 
| extended instruction set. 
| Because it may be command 


| driven, it is exceptionally easy to. 


link instructions together in 
| Basic to build your own 
| customised communications 


— the ultimate communications ROI 
— for the BBC Micro & Master 


Record: 
"Name: 


Number : ; 


Sign-on: 


Terminal: 


Filter. 
Rate: 


Echo: 


xon^ZXo ff: 


Colour: 


UCall > 
Save 


Sasa 
aaya . 
vIEVDATA > ` 


Transmit 
OFF. 
e». 


i Standard: 2 7+1 bits even. par 


“Off Oo. E 
Off 290 220 = 


Prev : 
Load 


| Software. 


Viewdata Terminal 

A full feature Prestel Terminal 
with pull-down help screen, real 
time clock and Epson compatible 
mode 7 screen dump. 


«x 


e Text Terminal 

Send files to a friend for the cost 
of a phone call, and access 
hundreds of Bulletin Boards 
throughout the country. Features 
include: 40/80 column operation, 
Xon/Xoff protocol, and pull-down 
status panel showing how 
Command is configured. 


| Over 50 powerful 

| commands, including 
x ANSWER ` *BAND 
* CALL x CONNECT 
x DIRECT x DISCONNECT 
x DISPLAY x DOWNLOAD 
x ECHON X GRAB | 
x LISTEN x PAUSE 
x PRON x PSCREEN 
* RETRY * RINGS 
* SAY Xx SDUMP - 
* STANDARD 
x TEXT 

* VEDIT 

å VIEWDATA x XON 


Telephone Directory 

This excellent facility allows you 
to save a name, number and 
modem configuration onto disc, 
for easy recall at a later date. No 
need to remember telephone 
numbers anymore. 


* STAT 


Viewdata Editor 

A full feature teletext editor, with 
a full range of editing commands, 
pull-down help window, and a 
pixel editor. 


MEMBERS 

PRICE Supplied on ROM with 76 
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BASIC books offer you a clear and concise introduction to 
science, technology and business subjects in å computing 
context with tested programs which can be run on most 
popular micros. 


| While you increase your expertise in the subject your 
| programming skills are strengthened by working out 
| solutions to practical problems. 


| BASIC books are ideal for degree students, diploma 
| students, practising engineers and technologists, and short 
| courses for business and industry. 


Available now — 18 BASIC titles on 


Computer Science - Mathematics and Statistics 
Civil Engineering - Mechanical Engineering 
Chemistry, Chemical Engineering and Materials 
Electronics and Electronic Engineering 
Business and Management Studies 


Many new titles are to be published throughout 1987 | 
including 
BASIC Differential Equations 
BASIC Hydrodynamics : BASIC Electrotechnology 


BASIC Chemical Engineering : BASIC Surveying 
BASIC Business Systems Simulation : BASIC Technical Systems Simulation 


BASIC books are softbound illustrated volumes and are 
er ground ao 2d 
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Printwise I isa low cost publishing aid, 
and allows you to create professional 
looking magazines, leaflets, posters 
— the possibilities are endless. Also 
use it for ‘near-letter quality’ printout 
for correspondence. Simply take your 
text file, specify the font styles you 
require, and Printwise will do the rest. 


No programming skills are 
necessary. 


MEMBERS 


18 ee fonts — 
covering 4 standard 
typesizes. 

all fonts can be used in 
the same document, or 
even in the same line! 
italic, bold and 
condensed typestyles. 
proportional spacing, 
right justification, full 
indentation. | 
powerful font designer. 
handles any length text 
files. 

suitable for all Epson 
compatible printers, and 
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BEEBUG members may advertise unwanted computer hardware and software through 


personal ads (including 'wants') in BEEBUG. These are completely free of charge but 
please keep your ad as short as possible. Although we will try to include all ads 
received, we reserve the right to edit or reject any ad if necessary. Any ads that 
cannot be accommodated in one issue will be held over to the next, so please advise us 
if you do not wish us to do this. We will accept adverts for software, but prospective 
purchasers should ensure that they always receive original copies including 
documentation to avoid any abuse of this facility. 


We also accept members' business ads at the rate of 30p per word (inclusive of VAT) 
and these will be featured separately. Please send all ads (personal and business) to 
MEMBERS' ADS, BEEBUG, Dolphin Place, Holywell Hill, St Albans, Herts AL] 1EX. The 


normal copy date for receipt of all ads will be the 15th of each month. 


Tandy CGP115 printer plotter,- hardly 
used includes BBC cable, screen dump 
program, new pens, paper £69. Tel (0983) 
68861 after 6pm. 


ROMs: Wordwise Plus, Ultracalc, 
StarDatabase; Disc: Beebplot (Gemini) -= 
unused. Addison Wesley lightpen and 
software; Books: Disc systems for the 
BBC micro by Ian Sinclair, BBC micro ROM 
book by Bruce Smith, Making Music by Ian 
Waugh, Expert Guide by Mike James, 
Introducing the BBC by Ian Sinclair; 
Magazines: Micro User, Acorn User and 
A&B Computing. Any offers considered. 
Please phone Jennifer on (0908) 679349. 


Wordwise Plus, complete with manuals 
£25. Amdek video - 300, high resolution 
green monochrome monitor with anti-glare 
screen £75. Tel: Rugby (0788) 813948. 


Beebugsoft Toolkit ROM, unused, recent 
version, boxed with instructions £13. 
Phone (0786) 61501 evenings. 


Watford  CS400S8 cased single, 4ØØK disc 
drive, 40/80 switchable with PSU and 
cable. Unused - £110. Elite on disc £5. 
Tel: Berkhamsted (04427) 6048. 


Toolkit Plus ROM with manual, as 
supplied from  Beebugsoft £20. Tel: 
Chorley (02572) 78286. 


Wanted, Acorn Teletext receiver, with 


ROM and manual. Please phone Andy 
Fawkes, Broad Acres, Leckhampstead, 
Newbury, Berks RGl6 8QY. Tel: (94882) 
369. 


6502 Second Processor £120. BCPL + 
calculations + generator £1ØØ. Acornsoft 
Forth + book £18. Complete BEEBUG vols 
1-4 in binders £25. Various books and 
software originals at half price or 
less. Tel: Caxton (09544) 532. 


` tractor unit, 


£100. ATPL ROM 
14b joystick plus 
Disc Doctor ROM 


65Ø2 Second Processor 
board £2Ø. Voltmace 
adaptor and disc £15. 
£15. Tel: (0963) 32131. 


Following upgrade to Compact - For sale: 
Acorn Z8@ Processor and all manuals and 
2 sets of discs £275 ono; twin 80 track 
disc drive with own PSU £100 ono; also 
many ROMs at £10 each, and original disc 
games (inc. Elite) at £5 each. Tel: 
Roger Keyworth on 01-953 2214 evenings. 


Various BBC 'B' programs for sale, 
tape/ROM/disc. Send  S.A.E to Tony 
Jackson,  ^'Lawley', 26 | Anson Road, 
Exmouth, Devon EX8 ANY. 


BBC B, Acorn DFS, ATPL Sidewise ROM 


board, 16K sideways RAM, Beebugsoft 
Toolkit Plus and Sleuth ROMs - £250 ono. 


Will split. Tel: (0302) 744005. 


Sleuth ROM and manual as new. £15 
including carriage. Tel: 051-677 1518. 


Star DP510 dot matrix printer (1900 cps), 
cable and US manual. In 
regular use, good condition £95 ono. 
Tel: Hammersmith 01-741 0253. 


Nightingale modem with  autodial and 
Master compatible Commstar £119. 
Wordwise Plus £30. Masterfile II £10. 
6502 Second Processor £135. All as new. 
Would like to swap a  'mouse' for a 
Marconi RB2 tracker ball in good 
condition (software not necessary). Tel: 
Paul on (0782) 815927 evenings, 
weekends. 


Centronics GLP printer with tractor feed 
and cover £80 only. Tel: (0706) 73153 
evenings only. 


33 watford DFS 


1.43 ROM, 1Ø chips, 
instruction manual. Half price - £34. 
Tel: Ø1-836 7649. 


BBC B, Acorn DFS, SØØK dual disc drives. 


(40/89), Juki 61ØØ with tractor feed, 
amber monitor, Wordwise Plus and 4 
Acornsoft business package programs. 
£595 for quick sale (no offers). Would 
consider hardware split. Tel: Barry Reed 


Ø1-669 2127 9am to 5pm. 


Cumana CS1ØØ 4Ø track disc drive with 19 
discs, manual, original packing, little 
used. MUST SELL £70 ono. Also tape 
Elite, Frak, Felix and others (won't run 
on my Master) going cheap. Tel: (0273) 
832548 evenings. 


Microline $380, 16cps, draft, enlarge, 
condense etc., vgc. Also 200K twin drive 
for sale. £75 for both, will split. 
Please contact Dominic (0785) 42483 or 5 
Corporation Street, Stafford ST16 3LZ. 


Acorn 280 Second Processor including all 
CP/M packaged software, books plus 
Wordstar and dBase II £245 ono. Tel: 
Bedford. (0234) 679067 evenings. 

ROMs:  Beebugsoft Murom, Toolkit and 
Sleuth, £12. Altra ROMs Enigma Disc 
Imager £15. Computer Concepts Disc 
Doctor £12. Tel: (0303) 42540 evenings. 


6502 Second Processor £90. TRS80 line 
printer II £50. D/S 40 track disc drive 
£50. CGP115 colour printer £20. 
Monochrome monitor £20. Watford 
expansion board £10. TRS80 32K keyboard 
free with a purchase of any two items. 
All with ROMs and manuals. Tel: Bampton 
(0398) 31899 evenings. 


Tandy CGP115 colour printer, little 
used, cable, power supply, 4 black pens 
£55. Tel: (0903) 892682. 


` For Sale: Wordwise Plus ROM, all manuals 
and cassette typing tutor £25. Gemini 
Office Mate (40 track disc) £6. Mini 
Office I (40 track disc) £4. Acornsoft 
Desk Diary and Address Book (tape) £4. 
Beebugsoft Design (tape) £4, All 
originals with instructions. Will 
separate. Tel: 051-724 30634. 


BBC disc interface kit, including Intel 
8271, DNFS and 9 other chips £48 ono. 
Tel: Bedford (0234) 67067 evenings. 
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new and unused £39. Mike 


Viewstore, 
Taylor, 7 Brockhurst Road, 
Hants PO12 3AL. 


Gosport, 


BBC Master 128. Bought July 1986 £425 
ono. Acorn 6502 Second Processor £125. 
Wordwise ROM £15. Tel: Stephen 061-881 
1850 9am-6pm. | 


Owl, Beebon and other unusual BBC 
magazines wanted. Details to: 
Mr.Watkins, 181 St. Nicolas Park Drive, 
Nuneaton, Warwickshire CV11 6DZ. 


Viglen professional console unit for 


BBC B £25. Also Viglen ROM cartridge 
system (no cartridges) £7. All perfect 
condition. Tels Southampton (0703) 
845104. 

BBC B, Watford 2x8ØØK plus PSU, Le 
Modem, Solidisk DDFS, SWR32 RAM, 
Quinkey, monochrome monitor, Viewsheet, 


Intersheet, 3 years BEEBUG, Acorn User. 
Offers  - (0344) 884309  evenings/ 
weekends. 


Wanted: Aries B32 shadow RAM and B12 ROM 


boards. Sensibly priced 
Tel: Ripon (0765) 4613. 


items please. 


12 multistrike film ribbons, black 
(suitable Qume IBM6240). 2 Diablo French 
Prestige Cubic printwheels  No.38131-01. 
1 Bi-lingual Courier printwheel 
No.M2083. All new and unused. Qume 53/45 
daisywheel printer (parallel 13 bit 


Wordplex interface) plus power unit 
model 530. Offers invited for above 
items. Acornsoft View guide £3.50, 


Viewsheet user guide £6.50. Tel: 
(0705) 553546. 


Terry 


3 inch Hitachi disc drive 40 track 
complete with some discs and software 
£50. Tel: Chester 319265. 


Phloopy drive wanted in working order. 
Offer to 63 Inverness Street, 
Sunderland. 


For Sale: BBC  'B' OS 1.2, Solidisk DD 
DFS. Twin 40/80 D/S drives, Wordwise 
Plus, Masterfile II, 20+ discs, mounted 
in Solidisk cabinet. Games, books, 
Manuals. Suggest £300 ono. Tel: (0202) 
432973. 

Wanted: Teletext Adaptor. Tel: David 
(9494) 21588 office hours. 


W day 21 January 

Thursday 22 January 

Friday 23 January 
Saturday 24 January 


i P ER, 


plimentary ticket for this exhibition is 
enclosed with your magazine. 
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MARKS AND STATISTICS For teachers and 
lecturers. Simple to use spreadsheet 
format. 33Ø students per file. Up to 3ØØ 
subjects. Sorts, analyses, normalises, 
calculates means, applies weighting 
factors. Prints histograms and lists. 
Full documentation supplied. Disc (4Ø or 
80 track) £17. In-Form, 73 Woodfield 
Park, Colinton, Edinburgh EH13 ØRA. 


Rural Rambles and Seaside Strolls - new 
versions of General Map Reading and 
Coastal Map Reading (see Memory Maps, 
BEEBUG July 1986) make map reading an 


exciting game. BBC B/B+/Master, disc 
only, £9.95 each plus El p&p. 
Soft-Teach, Longbridge Deverill, 


Warminster, Wilts. BA12 7EA. 
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Business Ads 


Fed up with zapping aliens? How about a 


game to tax your brain? At only £4.95 
tape, £5.95 disc, Sharemaster offers you 


the chance to make thousands on the 
stock. market, from your armchair. 
Cheques/cash/P.Os to John Adams, 
Buckland House, East End Paglesham, 
Rochford, Essex SS4 2EQ. (B, B+ and 
Master). 

Clipart. Digitized pictures, cartoons 


and silhouettes available in mode Ø as 
cutouts for Pagemaker or in mode 4. 8Ø 
track disc with 804 pictures £5.80. 40 
track available on 2 discs £9.60. Your 


own pictures digitized. Parkside 
Developments, 9 Ingleby Gardens, 
Chigwell, Essex IG7 6EH. Tel: 01-500 
57Ø1. 


Beebug Supplement Jan/Feb 1987 


ages for Acorn's new 


Compact is Clare's Art 


MASTER 
SERIES 


sion. Mike Williams 


ints the scene. 


Clare's Artroom must be 
one of the first products 
written specially for the 


Art Room 
Master 


Master Compact, though it is also 
available in ADFS format for the Master 
128. Indeed, the program has been bought 


by Olivetti and is being bundled in as 
part of the software with the Prodest, 
Olivetti's repackaged version of the 
Compact now being sold in Italy. The 
Compact version comes on a 3.5" disc, and 
the Master version on the usual 5.25 
floppy. Both versions are accompanied by a 
44 page manual. The whole package is 
designed to be mouse-driven, as well as 
controlled from the keyboard, and Clares 
recommend the Nidd Valley mouse at £59.90. 


Perhaps surprisingly, Artroom is in 
black and white. Clares claim that as the 
prime objective of the package is to 
produce high quality graphics for output 
to a printer, colour is unnecessary. The 
package also includes a ‘Graphics Library' 
consisting of some 16 screens produced by 
Artroom. The manual implies that this 
‘extensive’ library provides a wealth of 
graphics for the design of news sheets, 
posters, etc., and suggests that Artroom 
has some of the capabilities of the likes 
of Pagemaker and  Fleetstreet Editor 
(written by  Clares for Mirrorsoft). This 
is not really true. The collection of 
'pictures' and images in the graphics. 
library will, I imagine, provide only 
limited material for those designing their 
own graphics displays - as examples of 
what can be achieved with Artroom the 
library is excellent, as the accompanying 
illustrations show. 


Having so far cut Artroom down to 
size, lets see just what it is capable of 
doing. When first booted, Artroom presents 
the user with two main choices, the 


creation and editing of graphics screens, 
or outputting screens 


to a printer. The 
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Product: Artroom 

Supplier: Clares Micro Supplies, 

98 Middlewich Rd, 

Northwich, Cheshire CW7 4AX. 
(0606) 48511 

£25 (Master) 

£221 (Compact) 

Demo Disc £2 


Price: 


choice is presented graphically, and I had 
some difficulty in working out which I had 
chosen - the manual is not too clear. Once 
into the main graphics option you are 
presented with a large icon menu in a 
matrix of five rows by eight columns. This 
occupies a central position on the screen 
and thus overlays any picture you are 
creating while selecting from this menu. 


most of the icons 
but two of them appear 
identical (!) and can only be distinguish- 
ed by their position. 


Within a short while, 
become familiar, 


Probably the best way of getting 
Started is by loading one of the pictures 
from the graphics library and 
experimenting with that. Clares have taken 
that to heart, providing a part finished 
picture and a complete  'guided tour' of 
the package based on this picture. 


Basic drawing can be accomplished by a 
set | of five 'pens' of different 
thicknesses. There is also an airbrush and 
a 'rubber band' form of drawing. With 


this, one point is fixed, and then moving 
a cursor about the screen causes a line to 
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be moved as though a rubber band were 
being stretched between the fixed point 
and the cursor. 


Four types of box can be drawn, 
outline or solid and black on white or 
white on black. In each case a standard 
rectangle is first positioned to fix the 
top left hand corner, and then enlarged to 
the required size and shape. Circles (but 
no other curves) can be similarly 
positioned and sized. 


Nine different 'fill' patterns are 
provided, but although reasonably speedy, 
are somewhat erratic in execution. Many 
times I found quite simple areas only 
partly filled, and repeated application 
was needed to achieve what 


'leak' when least expected. The manual 
does warn of both of these situations, but 
the results should and surely could have 
been better. 


One of the most useful and attractive 
features of the package is its ability to 


copy, and at the same time enlarge or 
reduce, selected areas of the screen. 
However, the area chosen can only be 


enlarged or reduced by a factor of two, 
though this can be done vertically, 
horizontally, or both. Again this is a 
limitation on the flexibility of the 
package. It is also possible to select 
reflection about either a vertical or 
horizontal axis at the time of enlargement 
giving further possibilities. As it is 
also possible to save and reload selected 
parts of a screen, it is feasible to build 
up a library of frequently used shapes and 
symbols, but it is up to the user to 
standardise on which part of the screen is 
to be used for this purpose. A symbol 
could then be loaded from your library, 
and copied to the required location. 


A further excellent feature is the 
ability to zoom in on a part of the screen 
and deal with that section at pixel level. 
And it is easy to scroll, both vertically 
and horizontally when in this magnified 
mode, with a small normal-scale picture 
top left for reference. 


Text can also be included in any 
display using one of seven fonts supplied 
(compatible with Clares' Fontwise), but 
only in one size. Once on the screen, text 
can be copied, enlarged or reduced as 
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I had set out 
to do. The fill also has a tendency to 


However , 
reducing the size of text can lead to very 
poor if not unreadable quality. 


already described for pictures. 


One final feature must be mentioned. 
Amongst the icons will be found a 'smiling 
face', a 'sad' face and a pair of eyes. 
The happy face allows the current display 
to be saved elsewhere in memory as å 
reserve screen, which can be restored with 
the sad face. The manual advises frequent 
back-ups of your work in this way so that 
any mistakes can be readily restored from 
a slightly earlier version. This is not 
totally under the control of the user as 
certain functions automatically up-date 
the reserve screen with the current 
picture before taking effect (particularly 
the fill function). The 'eyes' allow you 
to see what is in the reserve screen. 


The printout facilities are quite 
straightforward, if you have an Epson 
compatible printer, providing control over 
both the screen area to be dumped and the 
position on the paper. You can also view a 
screen before it is dumped (as the dump 
works direct from disc). 


CONCLUS IONS 

Most beginners would find Artroom 
quite an enjoyable fun package, despite 
its limitations. However, there have been 
many better art and design packages for 
the BBC model B, many of which are 
compatible with or are being released for 
the Master and (Compact. In my view, 
Olivetti have done the right thing in 
bundling this package in with the Prodest 
(Compact) for the first time user. Others, 
with more experience, will do better to. 
look elsewhere. 


David Graham pres- 
ents four function key 


definitions to automate 

MASTER DFS/ADFS transfers. 
SERIES Fiddling about with 
Tr ansfert Ing | the parameters of .the 
Files intricate *MOVE command can 
Between DFS| take forever. The function 
and ADFS key definitions presented 


here solve the problem. The 
five key definitions perform the following 
processes: 


fl Catalogue DFS disc 

f2 Load file from DFS disc 

f3 Save file to DFS disc 

f4 Copy file from DFS to ADFS disc 
f5 Copy file from ADFS to DFS disc 


The software is 
from within the ADFS, and in all cases it 
is assumed that the ADFS disc is in drive 
Ø, and that the DFS disc is in drive 1. It 
is packaged up as an EXEC file for ease of 
use, and is probably best typed in using 
the Editor. If the file is saved (using 
the SAVE option in the Editor) under the 
filename DISCKEYS, then typing *DISCKEYS 
in immediate mode will load the keys 
without disturbing any resident program. 


As you can see, the EXEC file is 
self-documenting, with a legend displayed 
on the mode Ø screen. Mode 0 is used in 
preference to the shadow modes, because 
keys f4 and f5 use *MOVE which makes use 
of shadow memory as workspace. If you 
change to mode 128, say, and then try to 
use f4 or f5, your drives will shake to 
pieces and you will become old before the 
transfer is complete. 


Keys £4 and £5 solve the problem of 
filename length and directory as follows. 
If you try to transfer an ADFS file with a 
filename of more than 7 characters, it is 
truncated to 7, and all transfers are put 
in the "A" directory on the DFS disc. 


In the reverse direction, DFS 
filenames which include a directory letter 
(e.g. W.TXTFILE) are truncated up to the 
full stop, and all transferred files are 


| 1 


intended to operate 


If! 


selected ADFS 


ial å Fo 


saved in the currently 
directory. 
One or two tricks have also been 


employed for blanking the screen, and so 
on, and these are discussed more fully in 
the accompanying EXEC Files Update 
article. But note that f9 is also defined. 

This key is called by key £5 because the 
program defined in key £5 is too long for 
a single key. Key f9 can in fact be used 
on its own. Its function is to unlock all 
DFS files. This is necessary because *MOVE 


leaves all transferred files  (DFS and 
ADFS) completely locked. 
MODE Ø 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkx 
* | DISC - ADFS TRANSFER ver 8 * 
* | FUNCTION KEYS * 
* | * 
*| Key 1 : Cat DFS * 
*| Key 2 : Load file from DFS * 
*| Key 3 : Save file to DFS * 
*| Key 4 : Copy DFS file to ADFS (*MOVE) * 
` *| Key 5.: Copy ADFS file to DFS (*MOVE) * 
* | * 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


CO.Ø 
*KEY] *CAT -DISC-:1|M 


*KEY2 CO.Ø|MCO.7:50.1,-15,2ØØ,2: INPUT"LOAD 
filename "A$:0S.("KEYO LOAD "4CHR$344"-DI 
SC-21."+CHRS34+"+AS"+CHRS124+"M") : *EX138,0 
,128|M 


*KEY3 CO.0|MCO.7:80.1,-15,200,2: INPUT"SAVE 
filename "A$:0S.("KEYÜ SAVE "+CHR$34+"-DI 
SC-:1. "+CHRS34+"+AS"+CHRS1 24+"M") : *FX138,0 
7128|M 


*KEY4 CO.Ø|M:C0.7:50.1,-15,2ØØ, 2: INPUT"COP 
Y DFS to ADFS Filename "AS:ZS="MOVE -DISC- 
21. "+AS+" -ADFS-Q.":IFMIDS(AS,2,1)=".," AS= 
RIGHTS (AS, LEN (AS) -2) :OS. (ZS+AS) :OS. ("A. * 
WR") ELSE OS. (ZS+AS):0S.("A. * WR") |M 


*KEY5 CO.Ø|M:C0.7:50.1,-15,2ØØ, 2: INPUT"COP 
Y ADFS to DFS Filename "AS:ZS="MOVE -ADFS- 
Q, "+A5+" -DISC-:1.A.":IFLEN(AS)»7 AS=LEFTS 
(AS,7) :05.(ZS+AS) 30S. ("FX138,0,137") ELSE 
OS. (ZS+AS) :OS. ("FX138,0,137") |M 


*KEY9 CO.0|MCO. 7:08. ("disc") :08. ("DR. 1") :0 
S. ("A. A. *") :0S, ("ADFS") |M 


P.STRINGS (14,CHR$11) : SOUND1,-15,50,2:CO.7 


More I 


David Graham. 


MASTER 
SERIES 


Keypad Negative INKEY 

The negative INKEY 
values for the keys on the 
Master keypad are different 
from those on the main 
keyboard. For those without 
Reference Manual part one 
| (D.2-39), here they are; 
and for those with it, note the value for 
the decimal point: 


Master Hints 


Ø -197 5-124 + -59 ,  -93 

1-108 6 -27 - -60 . -77 

2-125 7 -28 / -75 Del -76 

3-109 8 -43 # -91 Ret -6l 

4 -123 9 —44 * -92 

W.R.Davis 

Shady Moves 

*MOVE is a powerful, if ponderous, 
command that is invaluable for 


transferring files between DFS and ADFS. 
It cleverly uses shadow memory as 
workspace. This means that, unlike *COPY, 
it does not corrupt resident programs. But 
BEWARE, if you are in a high resolution 
shadow mode when you use it, it will take 
forever to transfer a file of any length, 
and your drives will be reduced to rubble 
in the process. (He exaggerates - Ed.) 


Editor Search and Replace 


The Master Editor contains a very 
powerful group of search options, though 
you need to study the Reference Manual 
part two with some care and a little 
scepticism before you can get the best 
from it. Here are three useful examples. 


£5 SReturn 
£5 S*Space”#\:/Return 
f5 “#REM*~SS/Return 


The first will count the number of lines 
in a Basic program, without the need to 
renumber it. The second will remove all 
Basic program lines consisting of a single 
colon, and the third (unlike the Reference 
Guide version) will remove all Basic lines 
which start with a REM. 
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hints for the Mas- 
ter and Compact from 


Default Baud Rates 


The default Baud rates on the Master's 
RS423 port are different from those on the 
standard model B, though of course you can 
reset the default rates on the Master with 
*CONFIGURE. As shipped, they are set to 
9600 on the B and 1200 on the Master. 


DATA Statement Quirk Fixed? 
If you run the following program: 


10 RESTORE1@:READvar: PRINTvar:DATA 1,2 
20 DATA 100,200 _ 


the Master will print 100, and not | as 
might be expected. In other words, DATA 
statements may not be placed on the same 
Basic line as the READ statement. This is 
different in Basics I and II on the model 
B, which would print 2 as the result of 
the same program, since they just lose the 
first piece of data on the line. 


WYSIWYG for Wordwise 

Master users who are also Wordwise 
devotees have a neat way to obtain 
WYSIWYG, something particularly handy for 
setting out tables, which can be a pain in 
the eye with Wordwise. The solution is to 
use the mighty Editor to create the table. 
This gives full screen 80 column layout. 
Once the table or whatever is produced, 
just save it away using £3, and load it 
into Wordwise using option 2 or 4. It 
needs no editing to remove codes etc, but 
if you need to edit it for other reasons, 
it may be easiest to use the Editor again. 


If you enter Wordwise after visiting 
the Editor, you will find that the cursor 
keys do not behave with Shift and Ctrl 
quite as they should. This is fixed by 
pressing Break from the Wordwise menu, or 
from Basic after leaving the Editor. 


Bad RENAME 


When renaming directories, you cannot 
use the root specification ($). Thus the 
following: 

*REN. S.FIRSTNAME $.SECONDNAME 


will give a "Bad rename" error. The only 
way around this is to select the root 
directory as the current directory, and 
use: 

*REN. FIRSTNAME SECONDNAME 


1 M 


[Mexxxaiim >| 
David Graham reveals 
some tricks which 
make EXEC files 
behave even more like 
MS-DOS batch files. 


A couple of issues ago 
(BEEBUG Vol.5 No.6) we 
looked at an extremely 
powerful way of using EXEC 
files to perform a whole 
host of tasks on the Master 
and Compact. The — idea 
essentially involved using EXEC files much 
as batch files are used on the IBM PC. 
There are however a number of commands 
provided by MS-DOS that Master batch files 
lack. But with a few tricks we can bridge 
the gap. 


MASTER 
SERIES 


Exec Files 
Update 


SCREEN BLANKING 

When you call a complex EXEC file, the 
whole contents of the file are displayed 
on the screen. This is messy, and obscures 
any legitimate output that the file might 
produce. PC users have the three neat 
commands: ECHO, ECHO ON and ECHO OFF to 
control "echo" of file contents and 
messages to the screen. The best way to 
achieve a similar result in BBC Basic is 
to set the display mode early in the file 
to any mode other than 7 or 135, and to 
use COLOUR Ø (CO.0) to turn off the 
display and COLOUR 7 (CO.7) to turn it 
back on again. 


This technique is used in the EXEC 
file in the DFS-ADFS Transfer article 
elsewhere in this issue. C0.Ø is used to 
turn off all subsequent display after the 
user message is put up. The same command 
is also used within the function key 
definitions set up by the EXEC file. 
Notice that in key definitions f2 to f5, 
CO.0 is followed by |M (to generate a 
Return). This activates the command 
immediately. You will notice that it is 
directly followed by CO.7. This is to 
ensure that when the INPUT statement is 
executed, any accompanying message and the 
user's response will both be visible. 


The last line of the file is also 


worthy of note. The instruction 
P.STRINGS(14,CHRS11) prints a string made 
up of a series of ASCII 11s. These take 


the cursor back up the screen, and thus 
get rid of the gap left by the invisibly 


printed text. The CO.7 at the very end 
then reinstates normal text printing. 


USER INPUT 

There is a basic problem with all user 
input to an EXEC file, as you can see if 
you create the following EXEC file: 

INPUT"Go ahead (Y/N)";ansS$ 

IF ans$="Y" THEN P."Action Required" 
Where things go wrong is that since the 
EXEC file simulates keyboard input, 
whatever follows. the  INPUT statement in 
the file, is itself taken as user input. 
In other words, the computer takes the 
line following the INPUT statement to be 
the user's response. The same thing 
happens with GET and INKEY. But there are 
ways around the problem. 


The simplest involves using negative 
INKEY to detect a key-press, and this 
Works because the negative INKEY function 
scans the keyboard directly, rather than 
using the keyboard buffer (which is where 
the EXEC file contents are directed). Thus 
you could use the following: 

P."Go ahead?" ;:REPEAT UNTIL INKEY (-69) 

REM Flush buffer 

*FX15,1 

REM The rest of the file 
The top line will now wait until the "y" 
key is pressed, and will hold up the EXEC 
file until this is done. If you wish to 
abort the file, then just press Escape 
instead of "Y". The purpose of the FX15 is 
to flush the keyboard buffer of your (now 
redundant) answer. 


Although you cannot test a whole range 
of keys with negative INKEY, you can take 
this a little further. For example, the 
following is a little more elegant: 

P."Go ahead (Y/N) ?";:REPEAT UNTIL INK 

EY (-69) OR INKEY (-86) 

IF INKEY(-86) THEN *FX125 

*FX15,1 

REM The rest of the file 
Here, pressing "N" will cause the file to 
abort, Since FX125 simulates an Escape. 


Sometimes however, you need to use an 
INPUT statement. This is possible from 
within an EXEC file, but there must be no 
characters following the first Return 
character after the INPUT statement. If 
there are, then these will again be taken 
as user input. This can be quite 
restricting, since no EXEC file line may 
be more than 255 characters in length. If 
you wish to go over this length, you can 
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either use a function key or call in a 
second EXEC file. 


EXEC files may be chained one after 
the other simply by inserting a command to 
EXEC in the next file, at the end of the 
previous. one. The command should be at the 
end of the file, since calling a second 
EXEC file cancels the first. Calling a 
function key from an EXEC file is also 
quite easy. You need to set up, the 
contents. of the key early in your EXEC 
file using *KEY, and call it with the 
following FX call: 

*FX138,Ø,n 
where n is a number which defines which 
key is called. 128 calls key fØ, 129, key 
fl, and so on. It is important to note 
that although you may place this FX call 
early in an EXEC file, it will not be 
implemented until the end of the file is 
reached. As an example, the following 
brief EXEC file sets up key £9, and then 
calls it: 

MO.Ø:C0.Ø 

*KEY9 CO.0|MCO.7:P."This can follow an 

INPUT statement" |M 

CO.7:1NPUT"Filename "f$:*FX138,0,137 


j 


Although this example is quite 
artificial, it does show that the text 
printed by the function key does not upset 
the INPUT statement in the EXEC file 
executed earlier. You may have noticed 
that the DFS-ADFS transfer EXEC file 
mentioned above uses a similar technique 
in key f5 to call key f9. But this is just 
because the program is too long to get 
into a single key definition. 


REPLACING GOTO 

EXEC files have no line numbers of. 
course, So it is not possible to implement 
GOTOs of any kind. But you can achieve 
program branching with extensive use of 
the IF THEN ELSE construct. If you have 
more than one branch that needs to be more 
than one program line in length, you will 
need to use more than one IF statement; 
and in this case it will be as well to 
reduce this to simply testing the state of 
a single variable, or a flag. It is also 
possible to set up and call procedures and 
functions from EXEC files, as an 
alternative to using GOTO, but I leave it- 
to you to look for the most convenient way 
to implement this. 


David Graham shows 
how to save your 


disc as an emergency 
= | back-up. 
MASTER — When your Master's 
SERIES backup battery goes flat, 
{you will lose all your 
| Maintaining machine status settings. 
Status This short program allows 
you to save them to disc 
(before your battery goes 
down), and load them in 
again whenever you need to. It is also 
handy if you wish to use different status 
settings at different times. 


When you run the program, it asks if 
you wish to Read or Write the CMOS RAM. If 
you select Read it will read the RAM, 
display the contents on screen, and save 
it on file under the name "CMOS". If you 
select Write, it will look for a file of 
the same name, and both display its 
contents, and write it back to the RAM. 
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| CMOS RAM settings to 


You can test it out using *STATUS and 
*CONFIGURE. 


106 REM CMOS RAM READ/WRITE ver8 
20 PRINT'"Read or Write RAM (R/W) ?'; 
30 CLOSEHØ:A=GET: PRINTCHRSA 
40 IF A=82 THEN PROCread 
5Ø IF A=87 THEN PROCwrite:PRINT"New s 
ettings take effect after next Break or 
power-up" 
60 CLOSE#Ø.: END 
70 : 
1000 DEFPROCread j 
1010 A%=161:B%=OPENOUT ("CMOS") 
1020 FOR X%=1 TO 49 
1030 Z$-(USR(&FFF4) AND&FFØØØØ) DIV&10000 
1840 PRINTX$,Z$:BPUT4B$,2$ 
1850 NEXT: ENDPROC 
1069 : i 
1878 DEFPROCwrite 
1888 B%=OPENIN ("CMOS") 
19890 FOR X%=1 TO 49 
1100. Z3=BGET#B%: PRINTXS$ , Z% 
1118 OSCLI ("FX162,"+STRSX3+", "+STRSZ3) 
1120 NEXT:ENDPROC 


This month, Jan Stuurman shows 
in detail how the sort program pre- 
sented last month can be readily 
adapted to work with different data 
files. 


We will now look in more detail at the 
implementation of the techniques for file 
sorting that we examined in principle last 
month, and show how the Filer Sort program 
can be adapted to sort other data files. 
If you remember, the basic idea for file 
sorting was as follows: 


1. Determine the composition of the 'key 
field' (or sort field) which will be 
used as the basis of the sort. 


2. Read each record in turn, extracting 
the key field and saving this in 
memory with a simple pointer (or tag) 
to the full record on disc. 


3. Sort the key fields (and tags) in 
memory using the Shell sort technique. 


4, Use the re-ordered tag file in memory 
to read each record from the original 
file and write these out to a new file 
in the new order. 


All line number references are to the 
listing given last month. The two arrays 
fieldS() and width%() are used to hold the 
names and widths of the fields that make 
up each record (a fixed field length, 
fixed record length format is assumed). 
For Filer, the information to be stored in 
these arrays is read (PROCopen at line 
8000) from the File Description Record at 
the start of the file, but you will have 
to decide for yourself how to set R EE 
arrays for other files. 


In the program the first step is to 
determine the file to be sorted, and the 
new file to be created. The information is 
collected by the procedure PROCfilenames 
(at line 4000), and the names of the two 
files assigned to the variables opS and 


below the new value of HIMEM, 


np$ for use later. Two further procedures 


called PROCopen and PROCnopen are used in 
the Filer version to read and write the 
File Description Record. This is where the 
arrays fieldS() and width%() are filled. 


The sort 
further arrays: 


program requires three 


sfld$ field number (position in record) 
strt% start character in field 
len% number of characters from field 


These arrays are used to build up a 
picture (or template) of how fields, or 
parts of fields, are to be combined to 
form the key field for each record. This 
process is handled by PROCsortfield (line 
5ØØØ onwards). For each field (or part 
field) used to form the sort key, these 
arrays store the field number, the 
position of the first character in the 
field to be used (default 1), and the 
number of characters from the field 
(default from the first character to the 
end). The maximum numbers of fields per 
record, and fields (or part fields) per 
sort key are determined by the sizes with 
which these two sets of arrays are 
dimensioned (lines 1030 and 1949). 


The two procedures PROCalfnum and 
PROCascdec are called to determine whether 
a numeric or alpha sort is required, and 
whether to sort in ascending or descending 
order. The variables tS and oS are set as 
required (lines 6050 and 7050). 


Once the key field and other informa- 
tion has been determined, the procedure 
PROCsort (line 11000 onwards) handles the 
remaining stages. The coding here is quite 
difficult ` to follow, but exceedingly neat 
in the techniques used. Line 11030 uses 
the information now stored in the three 
arrays sfld%(), strt%() and len$() to 
build up a complete string (s$) of Basic 
instructions as a template or mask, which 
can then be EVALuated to extract and, 
combine the relevant parts of each record 


. as it is read in. 


At the start of the main program, the 
value of HIMEM is set to be &1800 higher 
than PAGE. The program (as written) fits 
and the 
memory above up to the start of the mode 7 
Screen is used for storing the tag file. 
The start address of this memory area 
(value of HIMEM) is assigned to B% (1Ø2Ø). 
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The records are read 
key field extracted using the template s$, 
and the key field and tag (or pointer) are 


in one by one, the 


Store in memory from B% 
11050 to 11078). L% 
(number of bytes) 
field and tag. 


upwards (lines 
holds the length 
of the combined key 


The sort involves comparing keys in 
memory and swapping as necessary to 
produce a re-ordered tag file. The com- 
parison used is again built up as a string 
of Basic instructions (stored in tS) and 
EVALuated at line 11120 to sort the tag 
file. Once the sorting is complete, 


records are read again from the original 
file (using direct access via the tag) and 
written out sequentially to the new file. 


000 Descending order ` ` 
"Confirm NR ge ie 


scending order  . 
nding order Geno 


CREATING YOUR OWN PROGRAM 

If you have read the above description 
carefully, referring to the listing of the 
program given last month, you should now 
be able to amend the program to sort other 
data files. The essential procedures and 
functions for your own version of the sort 
program are as follows: 


PROCsortfield PROCsort 
PROCalfnum FNfwidth 
PROCascdec PROCwindowl 
PROCwindow2 

You will also need your own versions of 


the procedures PROCread and PROCwrite to 
read and write a record (from or to disc) 
using the array record$() as a buffer to 
hold one record at a time. In practice, 
you may well find it easier to work from 
the original program, modifying this as 
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required rather than starting from scratch 
and incorporating the procedures needed. 
All the input required from the user is 
dealt with quite conveniently by PROCinput 
(at line 30009). 


Other procedures and functions used: 

ask gets Y/N response 

close closes both old and new files 
error provides error handling 
filenames gets details of file names 


input collects all input required 
nopen opens new file 

open opens old file 

oscli implements OSCLI 

read read a record 

setup initialisation 

strip strips trailing characters 
title displays title screen 
write write record to file 


The procedures and functions PROCopen, 
PROCnopen, PROCread, PROCwrite, and 
FNstrip are specifically related to the 
Filer data file structure, and if used, 
will need amending to suit your own data 
files. The other procedures and functions 
listed above are not related directly to 
Filer, but remember that they may in turn 
call other procedures which are. 


More important variables: 


rec number of records in file + 1 

R position of a field in a record 
F] channel of old file 

EZ channel of new file 

len$ length of field on input 

lf length of sort field 

maxl maximum length for sort field - 


(see line 8049) 


np$/op$ old and new file names 

os ascending/descending character 
s$ sort field template 

ts sort comparison 

sf sort field number 

sfl1ds key field name on input 

strts start character on input 


Clearly, the task of amending a 
program like the Filer Sort is not for the 
beginner, but the readable structure of 
the program, together with the description 
of its use last month and the. program 
notes given here, should should go a long 


Way For convenience, the Filer Sort 
program is repeated on this month's 
magazine cassette/disc. 
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explains. 


The BBC Micro 
has a perfectly 
adequate way of 
handling errors 
at run-time. If 
you try the 
following sim- 
ple program: 

18 WOOPS! 
you will see 
the machine 
acquit itself 
impeccably with 
the reasonably 
useful message: 

"Mistake at 

line 19' 


Good Use 
of Errors 


handling routines, and what is the purpose 
of the armoury of error handling equipment 
(ERR, ERL, REPORT and so on) at the 
disposal of the BBC Basic programmer? 


Well, I can think of three good 
reasons for their use, and there are 
probably many more. Firstly, an error trap 
allows you to reset the machine to any 
desired state on pressing Escape or on 
encountering any other run-time error. 
This is very useful if your program 
disables the cursor keys or function keys, 
or leaves you in modes 2 or 5, or if it 
leaves disc files open. 


Error handling routines can also allow 
you to use the Escape key to take you to 
any desired place in your program, such as 
a main menu, or even to allow the Escape 
key to toggle between two different 
Screens, as it does in Wordwise or View 
(though these are of course both machine 
code programs). Finally, error handling 
routines allow you to filter out different 
kinds of errors,.so that your program can 
react differently when it encounters a 
division by zero error to when it tries to 
write to a disc with a write-protect tab. 


THE EQUIPMENT 
All this can be achieved using the 
four error handling constructs: 


ON ERROR, ERR, ERL and REPORT 


g Jan/Feb 


Why use error traps in 
your programs? C.P. Yu 


So why should. 
we need to in- “ 
corporate error 


The first of these, ON 
ERROR, is used to trap the 
error and direct the 
program to the user's 
error handling routine. 
This would take the form: 
ON ERROR GOTO 19000 etc 

A variant of this, ON ERROR OFF, is used 
to switch off user error handling, and to 
revert to the Beeb's own built-in error 
handling software. 


ERR and ERL are two special functions 
which return respectively the error number 
of the last error, and the line number at 
which it occurred. REPORT, by contrast, 
actually displays the error message 
associated with the last encountered 
error. And somewhat idiosyncratically, if 
there has been no error since the machine 
was powered up, REPORT prints the Basic 
copyright message. 


PUTTING IT TOGETHER 


With these building blocks we can 
eaSily build useful error handlers. Here 
is one of the simplest: 


188 ON ERROR GOTO 50900 

Main program 

5000 REM ERROR HANDLER 

5Ø1Ø ON ERROR OFF 

5020 MODE 7 

5030 REPORT: PRINT" at line "ERL 
5040 END 


The ON ERROR statement should generally 
come as early in the program as possible, 
so that even the earliest errors are 
directed through the routine. Note here 
the use of ON ERROR OFF. This turns off 
the error handler once it has been 
entered, so that should there be any error 
in the handler itself, you will not be 
Stuck in an endless loop, but instead, the 
error will be reported by the machine's 
internal error handling software. 


Line 5020 puts the machine into mode 
7. This is useful because it clears the 
Screen, re-enables the cursor in case it 
was disabled, and puts the machine in a 
readable text mode. Line 5030 then REPORTs 
the error message, and prints up the line 
number at which it occurred. 


If your program disables the function 
keys or cursor keys, then you should add 
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*FX225,1 to reinstate the former, and *FX4 
the latter; and if it opens disc files at 
any point, you should include CLOSE #% to 
close them. VDU3 is also often included to 


switch off the printer should an error 
occur while the printer is enabled. 
Incorporating these, we get the following: 


180 ON ERROR GOTO 5000 

Main program 

5000 REM ERROR HANDLER 

5010 ON ERROR OFF 

5020 MODE 7 

5030 REPORT: PRINT" at line ";ERL 
5040 *FX4 

5050 *FX225,1 

5060 CLOSEHØ:VDU3 

5070 END 


There are other things which may also need 
to be reset, such as cursor flash rates, 


keyboard auto-repeat rates, and so on; but : 


if you are writing the program which 


unsets these parameters, you should have X 


little difficulty in resetting them in the 
error handler. 


SIMPLE ERROR FILTERING 

The ERR function allows us to filter 
errors in such a way that a program reacts 
differently to different kinds of error. 
The most commonly used filter is probably 
that used to respond to the Escape key. 
When you press the Escape key at any time, 
it generates an error just as would happen 
if the error had been inherent 
program itself. Pressing the Escape key 
generates error number 17, and we can use 
this information to respond to Escape in 
any way that we choose. 


For example, if we insert the 
following line: 
5005 IF ERR=17 THEN GOTO 500 

we can ensure that pressing Escape always 
takes us to line 500. This could be the 
Start of a menu screen or whatever. If we 
are going to use this technique, there are 
two things to bear in mind. The first is 
that we cannot redirect the program to ANY 
point that we choose (currently line 509). 
This is because when an error is 
encountered, Basic clears the 6582 stack 
on which are stored essential loop data. 
The result of this is that once an error 
is encountered, the computer loses all 
"memory" of its current position in 
FOR-NEXT and  REPEAT-UNTIL loops. We must 
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in the 


therefore ensure that no error handling 


routine directs the program to the inside 
of any loop. 


ESCAPE TO EXIT | 
The second problem is that using 
Escape in this way does not allow us to 
use it to actually ESCAPE from the 
program, since every time that we press 
Escape, we are taken back to line 500 or 
whatever. The way around this is to have a 
second ON ERROR statement active during 
the menu screen only, which allows error 
number 17 (i.e. Escape) to exit from the 
program. This might. work as follows: 


100 ON ERROR GOTO 5009 

200 PROCsetup 

500 REPEAT 

519 PROCmenu 

520 ON ERROR GOTO 5020 

530 REPEAT 

540 A=GET-48 

55Ø UNTIL A>Ø AND A<9 

560 ON ERROR GOTO 5090 

570 IF A=] PROCfirstchoice 
etc 

6ØØ UNTIL FALSE 

5000 REM ERROR HANDLER 

5010 IF ERR=17 THEN GOTO 5090 
5020 ON ERROR OFF 

5030 MODE 7 

5040 REPORT:PRINT" at line ";ERL 
5050 *FX4 

5060 *FX225,1 

5070 CLOSEHØ. 

5080 END 


In assessing the way in which program 
segments such as the above will function, 
you need to keep a close watch on the 
sequence of ON ERROR statements. In this 
case the first is encountered at line 100. 
Any error occurring after line 100 directs 
the program to the handler at line 5099. 
This distinguishes between Escape (error 
number 17) and all other errors. If the 
error number is 17, the program is 
directed to the start of the menu sequence 
at line 500. Note that this line is 
outside ALL program loops. Any other error 
number causes the program to stop, with 
the appropriate error message, handled by 
lines 5020 to 5080. 


Once the program enters the menu 
sequence, and halts at line 540 waiting 


for the user's choice, the ON ERROR 
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destination line number has been altered 
slightly. This was achieved in line 52Ø 
just before the GET statement. If any 
error is now encountered, the error 
handler directs the program to line 5020, 
thus bypassing the Escape filter, so that 
if Escape were pressed from this point, 
the program would no longer return to the 
menu (which would have been pointless, 
since you are already in the menu). 
Instead the program terminates gracefully 
through the error handler (lines 5020 - 
5080). Thus we have achieved our 
objective: pressing Escape from within the 
menu terminates the program, while 
pressing Escape from anywhere else takes 
you to the menu. 


AUTO ERROR LISTING. 

Next month I will be continuing with 
this theme, looking firstly at more 
complex uses of the Escape key, and 
secondly at more involved error filtering. 
But by way of light relief, the remainder 
of this article is devoted to automatic 
error listing, and techniques for 
disabling the Escape key. 


With a little persuasion, the computer 
can be made to list automatically the line 
in which an error occurred, rather than 
just giving us its line number. The reason 
why persuasion is called for at all is 
that the command LIST cannot normally be 
issued from within a Basic program. If it 
could, 
as: 
1000 LIST ERL or whatever 
One way around the problem is to call the 
LIST command from within a function key 
definition, and then use an FX call 
(FX138) to simulate the pressing of the 
key. The following error handler uses this 
approach. 


10 ON ERROR GOTO 1000 
20 WOOPS | 
1ØØØ ON ERROR OFF 
1010 MODE7: REPORT: PRINT 
1020 $&9ØØ="K. ØL. "+STRS (ERL) +" |M": X$-0: 
Y$-9:CALL&FFF7 
1030 *FX138,0,128 
1040 END 


Line 1010 of this routine uses REPORT 
to .describe the error type, then the 
complex code in the following line sets up 
function key zero with the immediate 
command to list the error line. Line 1020 


we could just include a- line such . 


is made considerably more complex by the 
necessity of having to work on Basic I. If 
you have Basic II, or a Master or Compact, 
you could replace line 1020 with: 

OSCLI ("K. ØL. "+STRS (ERL) +" | M") 


Line 1030 uses FX138 to simulate the 
pressing of function key zero, into which 
the LIST instruction has been stored. You 
may well find it useful to include these 
lines in programs under development, since 
the listed line may easily be cursor- 
edited, to correct the error. 


Another way to list automatically an 
error line is to use the function key 
directly. In other words, when you hit an 
error, you press fÜ or whatever, and the 
line is listed to the screen. The 
advantage of this approach is that it 
requires no adjustment to the program 
itself. Listed below is the key definition 
which achieves this: 


1Ø *KEYØ A$="L."+STRS(ERL) +CHRS1 3:A%= 
138:X220:F.A-lTOLENAS: Y3=ASC (MIDS (AS,A) ) 
CA .&FFFA:N. |M 


ESCAPE FX CALLS 


Finally I want to mention a number of 
FX calls related to the use of the Escape 
key. FX2ØØ may be used to completely 
disable the Escape key. Its variants are 
as follows: 


*FX200,0 Enable Escape Key 
*FX200,1 Disable Escape Key 
*FX200,2 Enable Escape Key, and 
clear memory on Break 
*FX200,3 Disable Escape Key, and 


clear memory on Break 


The other call is used to REDEFINE 
rather than DISABLE the Escape key: 
*FX220,n 
This call redefines the Escape key to be 
the key whose ASCII value is n. Thus: 
*FX220 , 0 
makes the sequence Ctrl-@ generate an 
Escape, since the ASCII value of Ctrl-Q is 


0. This particular redefinition is 
frequently used because it is very 
unlikely that a user will key it 


accidentally, which is not the case of the 


prominent, and frequently pressed Escape 
key. | 


Time I made MY escape now, but I'll be 
back with more on error handling next 


month. 


LE 


ains, our electronics expert, 
ting Pineapples new 


under scrutiny. 


Product: P.C.B. 

Supplier: Pineapple Software 
39 Brownlea Gds, Seven Kings, 
Ilford, Essex IG3 9NL. 
01-599 1476 


Price: £97.75 inc. VAT 


Anyone who has spent time up to their 
elbows in ferric chloride in the kitchen 
sink knows the importance of getting the 
design of a printed circuit board right 
before production. 


Pineapple's PCB is an ingenious ROM 
package which makes the whole business of 
making your own printed circuit boards 
much more professional. 


PCB will not help you to actually 
route the tracks on a circuit board 
design. There are software packages to do 
this but they are outside the realms of 
the humble Beeb. Instead, PCB is a highly 
specialised drawing package to bring 
professional PCB designs within any Beeb 
owner's reach. 
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The biggest problem of producing a PCB 
design is getting all the information in 
front of you at one time while still 
leaving it readable. A complex design can 
consist of arrangements of tracks on both 
sides of the board, the component layout 
and even the component markings for a silk 
Screen printing if the board is a 
professional production model. All this 
makes pencil and paper a messy and 
unreliable solution. 


PCB allows any or all of these 
separate parts of a design to be displayed 
and edited on the screen at the same time. 
The individual 'layers' of the PCB design 
can then be printed out as finished 
artwork for the production process. 


The program has two screens, each very 
Similar to the other. The first screen is 
used to create the board shape, component 
layout and labelling. The software can 
cope with any board shape of up to 8 in by 
5.6 in. The board outline is displayed on 
a mode | screen in yellow with 40.1 in 
graduations around the edge. This is the 
smallest spacing for components and 
tracks. 


Along the base of the screen are the 
symbols to place on the board. There are 
three sizes of 'roundels' - the circles of 
copper with a hole in the centre for 
Soldering in a component lead - resistors, 
integrated circuits and lines (the last 
three in one of two orientations). These 
can be selected either with a  cross-hair 
cursor under the control of the cursor 
keys or with a function key which cycles 
through them. | 
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Once a symbol is chosen it can be 
placed on the board at the cursor position 
by pressing Return. At this point the size 
of the component can be changed with Shift 
and the cursor keys. When the length of 
the integrated circuit symbols is changed 
more or less connection pins are provided 
as well as the actual dimensions altered. 


Text can also be added. This can be in 
any of four directions and in two sizes - 
the 'normal' mode 1 size and a small size 
for component labelling. Once a component 
or other marking has been placed on the 
board it can be picked up again and moved, 
changed in size or deleted. In this way 
the component layout and labelling is 
built up on the screen. 


The next stage is to route the tracks 
between all the connections. This is done 
on the second screen. The process of 
routing the tracks on one or both sides of 
the board is similar to placing the 
components. One of three track widths is 
chosen from the menu at the base of the 
screen and a track is painted between 
roundels. The program automatically 
connects the tracks to a roundel if, and 
only if, the cursor is placed exactly over 
the connection point. In this way the 
tracks can be routed just where they are 
needed. 


Again, text can be added in four 
directions, to appear on the final board 
as copper lettering. Tracks (or letters) 
can be deleted by filling them in with 
black. Alternatively a large area of the 
board, bounded by tracks, can be filled in 
to appear as an area of copper on the 
final board. 
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that 
can be placed on the board - red and blue. 
These correspond to the two sides of a 
double sided circuit board. With PCB both 
sides of the board can be seen at the same 
time but are still easily recognised as 
separate, though use on a monochrome 
Screen might make the red 'side' difficult 
to see. 


There are two colours of tracks 


Once the board has been fully drawn 
out, it can be stored on disc or printed 
out. The printout can be either the same 


size as the finished board or twice as 
large. PCB requires an Epson-compatible 
printer with the  quadruple density 


graphics mode. This produces a very dense 
printout with a greater resolution than 
the board displayed on the screen. The 
roundels appear rounded on the printout, 
but decidedly pixelated on the screen. 
Tracks routed between two adjacent 
integrated circuit connection roundels 
appear to touch the roundels on the screen 
but on paper a special stretch of thin 
track is automatically printed. The 
printout can then be used directly to 
produce very adequate PCBs using one of 
the proprietary methods for this. 


PCB does nothing you cannot do with 
drafting pen, or Letraset, and paper (and > 
a good deal of time). However, this 
software does make the whole process of 
circuit board design considerably easier. 
It is easy to learn and generally well 
produced. This kind of package will never 
find mass appeal but for the limited 
number of Beeb users interested in DIY 
electronics, Pineapple has provided a most 


useful product. 
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Design — — å 
new version of their successful CAD 
package, Interactive 3D. Mike 
Williams reports om the new fea- 


Product: Interactive 3D (update) 
Supplier: Design Dynamics 

. 8 Meadow Way, Ampthill, 
Bedford MK45 2QX. 
(0525) 402447 | 
Price: ;  &12. 95 (disc) £8. 95 (tape) 


peston Dynamics’ Interactive 3D was 
first reviewed in BEEBUG in Vol.4 No.1Ø 
(April 1986), and was well recommended. 
For a detailed description of the package, 
readers are referred back to that original 
review. Now, a new version has been 
released, with a number of additional 
features and other improvements, but still 
selling at the same price as the original. 


The package remains essentially as 
before, with a display showing perspective 
and First Angle Projection views. Drawing 
takes place on the perspective view, using 
six function keys to control movement in 
the X, Y and Z directions. There is also a 
separate cursor which can be moved two- 
dimensionally over the drawing to locate 
particular points as required. As drawing 
proceeds, the results are shown in all 
views simultaneously, and values of the 
current X, Y and Z co-ordinates are 
displayed at the too of the screen. While 
this does take some getting used to, it 
does all work very well. It is also very 
easy to return to points on the drawing 
and re-align these, and any lines 
connected to that point are automatically 
repositioned at the same time. 


One of the principal new features is 
an automatic circle (and cylinder) drawing 
function. Circles are drawn about the 
'previous' point and in a plane 
perpendicular to the axis joining the 
'current' and 'previous' points. Cylinders 
are similarly drawn about an axis joining 
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In both cases, the 
Both 


those two points. 
radius is specified by the user. 
features work well and speedily, and form 
a useful addition to the package. 


Design Dynamics also claims that 
accuracy has been improved, particularly 
where the zoom facility is concerned. 
Complete accuracy is now maintained within 
the eight-times range of this feature, 
unlike the previous version which would 
not always return precisely to the 
original co-ordinates after using zoom. 

The other aspect which has been 
substantially improved is the production 
of hard copy. Previously a screen dump to 
Epson-compatible printers was provided, 
but this has proved too limiting. Now 
screens can be saved to disc at any time, 
and subsequently reloaded and dumped to a 
printer. This allows any suitable printer 
dump software to be used. It also means 
that screens produced by Interactive 3D 
can be enhanced using other software such 
as the BEEBUGSOFT Design package. 


For its price, and within the memory 
limitations of the model B, Interactive 3D 
represents excellent value for money for 
all those interested in three-dimensional 
drawings. The package has already proved 
popular with schools, and this new version 
Design 


Dynamics 


can only enhance 
reputation in this field. 


| Note: Existing users of Interactive 3D . 
| can upgrade to the new version. Send the . 
| old disc with £3 to Design Dynamics. The | 

upgrade includes manual supplement, 
| keystrip and conversion program. 


At approximately £17 a word, this 
speech recognition unit from R & D 
Speech Technology is hardly cheap. 
Mike Wana and Alan Webster 


R & D Speech Technology have come up 
with the first speech recognition Ssystem 
for the BBC micro, and a very good effort 
it is indeed. 


Housed in an attractive black box, the 


unit plugs into the micro via the  1MHz 
bus, and power is taken from the Beeb's 
own power supply. Any other device 


requiring power from the computer can then 
be plugged into the extension power socket 
at the back of the speech box. 


The unit is supplied with a rather 
sparse booklet, a microphone, a demo disc 
Or cassette, and software on ROM. There 
are no ROM fitting instructions, although 
R & D will fit the ROM for a small charge 
(if you send your machine to them). 


The unit basically compares words or 
phrases spoken into the microphone with 
'templates' already stored in memory. 
These are created with the *TRAIN command, 
up to a maximum of ten, and all ten must 
be recorded before recognition can start. 
To filter out ambient noise, you are 
allowed to average the data by recording 
any phrase more than once. 


Recognition is achieved by way of a 
*LISTEN command which will return the 


number of the template nearest to the 
input, and the degree of recognition. 
These are provided in two zero page 


locations (&70 and  &71). 


The degree of 


recognition is measured by a number in the 


range Ø to 255. This information is 
intended to be used by your own programs. 


The unit is also capable of sound 
synthesis, needing just a lead to connect 
it to your hi-fi or amplifier. The only 
drawback with the unit as it stands (and 
this must be a severe disadvantage) is 
that any phrase needing to be pronounced, 
must first be sent to R & D on audio 
cassette, to be transferred by them into a 
suitable data format. 


is an expensive way of doing 


This 
things, and surprising considering you 
have already purchased equipment to 


convert sound into data. The resultant 
data can then be loaded back into memory 
(or blown asa PHrase ROM), and speech 
produced using *TALK. 


There is a small demonstration 
supplied with the unit, and the quality of 
this was very clear. The unit can hold 
around 200 words in 16K, which is 
reasonable considering the quality of 
speech achieved. 


The manual supplied barely covers 
operation of the unit, but does have a few 
small example programs for you to type in 
and try. The demonstration disc is nothing 
to get excited about either. 


As present, this unit is little more 
than an expensive toy, even more so if the 
speech synthesis capability is to be used. 
The recognition and speech output are of 
excellent quality, but most home users, I 
suspect, would be more inclined to spend 
£170 on something a little more useful. 
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Have you ever noticed 
that you can't use the 
"Star" | commands (e.g. 
*FX) from Basic quite as 
easily as you can other 
commands? And all the 
operating system calls 
such as OSWORD - are they 
really only for machine 
code programmers? This 
month I'll show you how 
to make more use of these 
facilities in Basic. _ 


STAR COMMANDS 


There are 2 limit- 
ations on star commands 
in Basic. Firstly, they 
must be at the end of a 
line, or the only command 
in it. 


Secondly, you 
can't incorporate vari- 
ables into them. For 


instance, consider: 
10000 IF <test> *FX16,1: 
A%=ADVAL (1) 


1ØØØ *FX8,baudrate 
Both give "Bad Command". 


The first case is 
unlikely but you might 
want to do it sometime. 
However, since you can't 
put both commands on the 


same line, they would 
have to go into a 
procedure or subroutine, 


controlled by the IF. 


What makes the star 
commands act this way? 


To understand, you have 
to know a little about 
what is inside the 


computer. In particular, 
there are (normally) at 
least 2 sets of ROM-based 
software - Basic and the 
Operating System (OS). 
These actually 
totally different 
programs, and while a 
Beeb MUST have an OS 
chip, the Basic is not 
essential. 


are 


you dismissed OSWORD calls as being only for 1 
code programmers then take another look. Surac sh 
how they can be used just as easily in Basic. 


lat 


The OS makes all the different bits of 
the computer work together. It reads the 
keyboard, drives the monitor, handles the 
cassette interface and does everything 
else connected with getting things into 
and out of the Beeb, and making them work 
together when they are inside. When you 
run Basic, or any other language, it uses 
the OS to do all these jobs for it. 


You can give commands directly to the 
OS, without using machine code, by means 
of a star command. The "*" tells Basic (or 
any other language) that everything 
following it on that line is to go to the 
OS, and NOT to the language. 


The OS takes the characters AFTER the 
star and handles them by its own rules. 
These specify the letters and numbers 


which are possible, such as the *FX 
commands described in the User Guide, and 
others such as *SAVE. 

What happens when line 10000 is 
executed? The OS sees "FX16,1", and 
understands that alright, but then it 


comes across ":A%=" etc. As it does not 
understand this, it exits with an error. 
In the second case, "baudrate" is a Basic 
variable, but the OS does not know about 
Basic; after "*FX8," it expects a numeric 
character and without one it fails. 


Those problems above are irritating, 
but we can get around them. Sometimes, 
though, we MUST get data from Basic into 
the OS. Perhaps a program has to save a 
block of memory, such as a screen display, 
to a file whose name has been input. You 
could try: 

12000 INPUT "Save as? "files 

12010 *SAVE fileS 8000 48090 
But that won't work (why not?). 


Help is at hand in the Command Line 
Interpreter (CLI), which passes a string 
direct to the OS. The CLI is briefly 
described in the User Guide, and you can 
get into it in two ways. With Basic II or 
later, the command OSCLI(string) does the 
job for you. In an older Beeb with Basic 
I, you need a special procedure PROCoscli. 
Before you first use this procedure, set 
up the buffer "clibuff" with .a "DIM 
clibuff 39" instruction. 
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20000 
20010 
20020 
20030 
20040 
20050 
20060 


DEF PROCoscli (str$) 

LOCAL X$,Y$ 
SclibuffsstrS$ 

X$-clibuff MOD 256 
$-clibuff DIV 256 

CALL &FFF7 

ENDPROC 


To 
REPORT<Return>. If the copyright message 


says 1981 you have Basic I, while 1982 
means Basic II; anything later is even 
better. In the following examples, you 


should use "PROCoscli" in place of "OSCLI" 
if you have the early system. 


Now we have a way of getting variable 


data into the OS from Basic - convert it 
into a string. Line 12016 could 
become: 12010 OSCLI("SAVE "+fileS+" 8000 + 
8000") 


and the earlier examples are: 
10000 OSCLI("FX16,1") sAS=ADVAL (1) 
11800 OSCLI ("FX8,"+STRS (baudrate) ) 


Note that there is no "*" at the start 
of the sequence. The asterisk tells Basic 
that the rest of the line has to go to the 
OS, and OSCLI does that for you. The OS 
itself ignores the "*", 


While there is not much point in using 
variables with most star commands - they 
can only have one sensible value - some 
can benefit from the OSCLI approach. *SAVE 
and *LOAD are obvious examples, but some 
of the *FX commands can be useful, too. 
For instance: 

13008 INPUT "Key repeat speed? "S% 
139810 OSCLI ("FX12,"+STRS(S%)) 


OTHER OS CALLS 

While the CLI is the normal way of 
getting into the OS from Basic, it's not 
the only one. The User Guide lists lots of 
OS routines which look very useful. Most 
of them are really only for machine code 
programmers and do things which Basic does 
already. Some, though, do extra things and 
it, would be nice to be able to use them. 


For example, you might need to know 
which real colour (screen colour) is 
linked with a given logical colour (i.e., 
the one in the COLOUR statement). There is 
an OSWORD call (see the User Guide again) 
to do the job. Since we can get into 
we can write a 


OSWORD with CALL &FFFl, 
function to do the job: 


find which Basic you have, type 


» 


| 21000 
| 21010 
| 21020 
(21030 X 
| 21040 
| 21050 


DEF FNrealcol (logcol) 

LOCAL A%,X%,Y% 

?colbuf=logcol 
x%=colbuf MOD 256 

Y%=colbuf DIV 256 
%=&B 

CALL &FFF1 

fel 


There you have a machine code function 
from Basic, without needing to know 
assembler. Remember to reserve space for 
your buffer (e.g. 'DIM colbuf 4*), 

Another 


example. Suppose you want to 


read the pixel pattern of an existing 
character (see First Course Vol.5 No.6) so 
maybe after modifying the 
set a 


that you can, 
pixels, use VDU PE 
KE character: 


to 


DEF PROF eadehat (char) 
LOCAL A£,X£,Y$ 
?charbuf=char 
X%=charbuf MOD 256 
Y%=charbuf DIV 256 
AS=&A 

CALL &FFF! 

ENDPROC 


j 
L| 


| 
Í 
yy 


| 
LAA RES i 


The character bytes are now in the top 
8 bytes of "charbuf" (previously defined 
with "DIM charbuf 8"). Set character 230 
to an inverted version of this value with: 
14000 VDU 23,230 
14018 FOR I$-8 TO | STEP =]: 
VDU charbuf?I$:NEXT 


To use the OS successfully in this 
sort of way, first read the User Guide to 
see what the call needs. If necessary, 
DIMension a buffer and then write a 
procedure or function which: 


1. Saves A$, X$ and Y% by making them 
LOCAL. 

2. Sets the buffer, and points X% and Y% 
to it. 

3. Sets A% to the right value. 


CALLS the correct start address of the 
OS routine. 


Those are only the skeletons of some 
ideas, but they show you how it isn't 
essential to know machine code in order to 
use some assembly programmer tricks. If 
you look at the User Guide carefully, you 
will find lots of similar ideas. Apart 
from OSCLI, they are all a bit specialis- 
ed, but nevertheless very handy EE 
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All 
forced into upper or 
case by making use of the 
fact that ASCII codes have 
just one bit different be- 


letters can be 


lower 


tween upper and lower case 
characters (bit 5). Lower 
case letters have a '1' and 
upper case letters a 'Ø' in 
this position. So to com- 
pare a letter in upper case 
regardless of i'ts case, use 
'A$ OR &20' in the com- 
parison, where A% is the 
ASCII code of the entered 
letter. To convert to upper 
case use 'A$ AND &DF'. 


There is an  OSBYTE 
routine to switch the 
keyboard to produce only 
upper or lower case letters 
and to achieve the same 
effect as pressing the 
Shift-Lock,  Caps-Lock and 
the very useful Shift-Caps- 
Lock. This is the OSBYTE 
call with the accumulator 
set to 202, or *FX202. The 
following table gives the 
range of effects. 


alue Effect Caps Shift} 
| 48 Lower case Off 
| 32 Upper Case On Off 
16 Shift Lock Off On 
64 Shift Lock On On 
60 Shi ft-Caps | 
Mike Trace 


can be 


Any 
speeded up a little by 
switching off the analogue 


program 


(joystick) port. The Beeb 
automatically looks at the 
analogue-to-digital con- 
verter many times a second 


54 


to read values from it. 
Disabling ` this provides 
more time for your program. 
Use *FX16,0. Don't try 
this, though, if the pro- 


gram is using joysticks! 
Derek Gray 


Even the humble BBC 
model B can preview 
documents of any length in 
mode 3 or Ø (i.e. with 80 
columns) by making use of a 
little-recognised aspect of 


Wordwise Plus. A long 
document should be split 
into manageable portions 


(say, 1000 words at a time) 
and saved as FILE], FILE2 
and so on. Each should have 
as its last line a call to 
the next in the chain as 
follows: 


<f 1 >PF"FILEX"<£2> 


where <f1> and <f2> are the 
green and white codes, 
respectively, produced with 
function keys 1 and 2 and X 
is the following file 
number. 


With the first file in 
memory, selecting options 6 
or 7 will preview or print 


the entire document, 
reading subsequent files 
from disc and carrying 
forward all headers, 


footers, page numbers, and 
so forth. At the end, the 
first file will still be in 
memory. 


Denis Groombridge 


The 81 locations from 
&380 to &3DØ are reserved 
for  worksoace for the 


cassette filing system, and 


appear to be unused unless 
this filing system is 
called. This area makes an 


excellent additional user 
RAM scratch pad for the 
hard pressed disc user. It 
is ideal for passing 
parameter blocks in OSWORD 
calls and the like, and is 
even large enough to hold 


modest machine code 
routines, leaving the 
frequently used &AØØ buffer 
area free for other 
purposes. 


David Graham 


The Beeb's analogue-to- 
digital converter is not 
very fast, taking 19ms to 
complete each conversion. 
It normally produces a 19 
bit digital number from the 


voltage applied at the 
analogue port. FOL 
non-critical applications 


(such as joysticks) the 
speed can be increased by 
reducing the accuracy to 
only 8 bits. 


Conversion then takes 
around 4ms. The accuracy is 
controlled by bit 3 of 
location &FECØ (a register 
of the DAC chip). Resetting 


this bit gives 8 bit 
operation. The other bits 
control the likes of how 


many channels are used. To 
set the converter to use an 
8 bit conversion type: 


?&FECØ=?&FECØ AND 247 


For more information, 


refer to page 429 of the 
Advanced User Guide. 
Derek Gray 


I find the  RAMSAFE 
program (BEEBUG Vol.4 No.9) 
very useful. As I have 
battery backed sideways RAM 
it remains in there quite 
happily and enables me to 
retain any other program I 
want, without any of the 
hassle involved in produc- 
ing a ROM image. The only 
small inconvenience is that 
after *RLOAD I find I have 
to start listing a program 
before it will run. 

D.P.Dyer 


Derek Floyd, the author of 
RAMSAFE, confirms that a 
program *RLOADed from cold 
will only run as described. 
This is because TOP is not 
reset. The OLD command 
would correct this, but you 
cannot readily call a rou- 
tine in one ROM (Basic) 
from within another. 


There is a 'fudge' that 
appears to work, though it 
does waste up to 255 bytes 
of memory, and involves 
adding the following lines 
to the  RAMSAFE program: 

2812 LDA &73 

2814 STA &13 
The RAMSAFE program keeps a 
record of the last address 
transferred, but only to 
the nearest 256 byte 
boundary, and this can be 
used to reset TOP. 


| Here 
simpler View file loader 
for the ADFS Menu program 


is an alternative, 


(Vol.5 Nos.4 & 5) = ins 
Spired by that of David 
ad All View files åre 


the kaeo r^ buffer 
being used instead of an 


. Sense 


file. The modififat- 
to the program are 


ions 
listed below: 


2030 keyS="*KEY@*WORD | MLOAD 
"A$ (F$-64) +" | M" 

2048 OSCLIkeyS 

2050 *FX138 Ø 128 


E, Mark Jolliffe 


This alternative certainly | 
has the merit of simplicity 


but requires that all your 
View files are kept in the 
one directory called VIEW. 
This does abandon one of 
the benefits of using the 
ADFS, the facility to 
organise one's files in 
different directories by 
function. 


Would Peter Hill tell us 
why he wants 255 lives in 
Frak! (see Hints & Tips 
BEEBUG Vol.5 No.7)? I can+ 
not see the enjoyment or 
of achievement if 
this alteration is made. I 


to one life (one day when I 
get better) but I am sure 
Aardvark has set a sensible 
number of lives to make the 
game worth playing. 

Brian Westbury 


All we can say is that on 
the same day as we received 
Brian Westbury's letter, we 
received another, delighted 
with the information and 
seeking more. 


esting results “using ‘the 
printer check routine (see 
First Course, BEEBUG Vol.5 
No.3). With the printer 
turned on and switched 


and 


on-line, the routine re- 
sponds correctly. 


With the printer turned 
on but switched off-line, 
the routine gives the right 
response, and again if the 
printer is switched on-line 
and the routine re-run. 


With the printer turned 
off initially, surprise 
number one; although two 
bytes have been sent to the 
printer, ADVAL(-4) shows 62 
bytes free - only one of 
the bytes is still in the 
buffer. Surprise number two 
now occurs if the printer 
is switched on and the 
routine re-run. The routine 
responds as if the printer 
is still not connected. 
Surprise number t 
the routine is 


now fun 
again it does produce the 
correct result. 


ideas 
the 
the 


Do you have any 
that might explain 
behaviour or solve 
difficulties described? 

Mike Markey 


When the routine was first 
written, it sent only one 
test byte to the printer. 
It was because this proved | 
unreliable that the routine 
was amended to send two 
bytes. This gave the 
correct results in tests, 
but is clearly not fool- 
proof. I cannot explain 
where the missing bytes 
have gone, but it might be 
worth making ‘the routine 
send four (or more) bytes 
seeing if correct 


responses are then obtained 


in all cases. 


Just when you thought that you had 


heard the last of Repton, Superior have 
released the next in the cycle. This time 
it's even bigger, more complicated, and 
with many extra features. The game still 
revolves around the little green reptile 
finding his way around a cavern (now 
packed with growing fungi, time bombs, 
time capsules and golden crowns, as well 
as skulls, rocks, spirits, keys, diamonds, 
monsters, etc.). A major improvement to 
the game is the addition of a screen and 
character designer that can be used to 
create a completely new-look game (just 
like BEEBUG's Pitfall Pete in Vol.5 No.7). 


The size of the game is huge; there 


are 24 screens in all, 
password and must be completed in 
succession to finish the whole game. 
Everything about this game is good. The 
graphics are superlative, drawn in huge, 
colourful, | well-animated sprites. The 
scrolling is quick, the sound is good and 
the game presents a huge challenge to 
those who prefer  problem-solving to 
blasting 'aliens'. The puzzles are, in the 
main, fiendishly difficult; most of the 


and each has a 
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screens are impossible to complete without 
lengthy practice. Highly recommended. 


Ravenskull is 


another  top-quality 
release from Superior, featuring a vast 
playing area. The idea of the game is to 
travel round a castle to recover a silver 
crucifix. Windowing is used (as in the 
Repton series) to move from room to room. 


The game features are many and varied. 


There are over 25 different objects to 
find, use or avoid, including potions and 
scrolls, a bow and arrow, a cake, and some 
dynamite. You can chose which of four 
characters to be (warrior, elf, wizard or 


adventurer) and you can carry up to three 
objects at once. 


The graphics are large and colourful 
and the title screen is about the best I 
have ever seen on the Beeb. The game is 
slightly slow to get into but the review 
copy allowed me into later sections of the 
game where the action hots up 
considerably. This game is a challenging 
graphic adventure, well worth the money. 


Backgammon is a popular board game 
with something of an up-market image. In 
this version you play with the computer as 


The object of the game is quite 
simple: to move some 'stones' around a 
board, avoid being !'hit' by | your 
opponent, and be the first to remove 
your stones from the playing area. 


SEERE 


The board is split into four main 
sections (see figure 1), with the 
triangular points numbered from 1 to 24. 
Your opponent has to move the white 
stones anti-clockwise around the board, 
and you have to move the black stones 
clockwise. 


The first objective is to move your 
15 stones into your inner table (points 
19-24), before you can begin to ‘bear 
off' - remove the stones from the board. 


Two dice are rolled to decide who 
goes first (the dice are shown at the 
|, too. of the middle bar). When the dice 
have been 'thrown' you may move | or 2 
stones by the relevant number of places 
shown on each dice. If a six and two are 
thrown, for instance, you may move one 
stone by six and then two, or two and 
then six, or you may move one stone by 
Six and another by two. You cannot move 
more than one stone for each value of 
` the dice. If a double is thrown, you may 
move four times the amount shown on one 
dice. 


your opponent, and the program prompts you addicted. 


if 17 16 15 


for every move (and checks it as well). 


r ! 
wo & 7 B 39 i8 it. 


Even if you have not played Backgammon 
before, you will soon become quietly 


Each player may move a stone onto any 
unoccupied point, a point that has their 
own stones on it, or a point containing 
just one of their opponent's stones. 
Points occupied by more than one of your 
opponent's stones (a closed point) are 
out of bounds. 


If you move to a point occupied by a 
single opposing stone, that stone 
becomes  'hit', and is moved to the 
centre bar. A player with one or more 
stones on the centre bar must move these 
back onto the board (using the dice to 
determine the start position) before 
moving any other piece. The number of 
stones on the bar is indicated by  'M' 
for your opponent, and 'Y' for yourself. 


Once either player has moved all 
their stones into their respective inner 
table, they may then start to bear off. 
To bear off, a stone should be moved 
beyond the end of the board. If a four 
is thrown, any stone in positions one to 
four can be removed, or a stone moved by 
four points if it occupies positions 
five or six. The game ends with the 
first player to remove all fifteen of 
their stones. 


If the loser has not removed any 
stones by the finish, the game is lost 
by a gammon (equivalent to 2 games). 


SEE 


SENSE 
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any of the loser's stones are still left 
in the winner's inner table, the winning 
margin is called a backgammon 
(equivalent to 3 games). 


USING THE PROGRAM. 

Once typed in and safely saved, the 
program may be run to play the game. You 
will find prompts to help you select the 
appropriate move when it is your turn to 
play, and the program checks for any 
illegal moves. Do remember that if any of 
your stones has been hit, they must be 
returned to the playing area before any 
other moves take place. All you have to do 
now is get playing. 


As the program is quite long and uses mode 
1, users with PAGE set higher than  &E00 
(model B and B+ users with disc systems 
fitted) should add the following move-down 
routine to the start of the program. 


Ø *TAPE 

I *K.@ FORAS=ØTO (TOP-PAGE) STEP4 : A% ! & EØØ= 
AS! PAGE: NEXT | MPAGE=6& EØØ | MOLD | MGOTO 1 Ø | M 

2 *FX138 Ø 128 

3 END 


10 REM Program Backgammon 
20 REM Version BØ.2 
30 REM Author Michael Bell 
40 REM Beebug dJan/Feb 1987 
50 REM Program subject to copyright 
60 : | 
100 ONERRORMODE? : REPORT: PRINT" at line 
"3 ERL: END 
110 MODE! : VDU23,1,,05;0; 0; 0; sDIMBS (24) 
120 REPEAT 
130 PROCscreen: PROCsetup: PROCpieces 
140 REPEAT: PROCdice: UNTILD13<>D22% 
150 IFD12»5D22 PRINTTAB(1,30)"You move 
first." ELSEPRINTTAB (1,30) "I move first," 
160 PROCpause:PROCspace | 
178 IFD19>D2% PROCplayer 
180 REPEAT 
190 PROCcomputer 
200 IFCB$s15THEN220 
210 PROCplayer 
220 UNTILPBS=150R CB$2s15 
230 IFCB$-15 PRINTTAB(1,30)"I win by " 
; FNscore ("P",@) :PS 
240 IFPB$-15 PRINTTAB(1,30)"You win by 
"sFNscore ("C",18) PS 
250 PROCpause: PROCspace 
260 INPUTTAB(1,30)"Another game ",AS 
270 UNTILAS="N"OR A$="n" 


and good playing strategies, 
The Illustrated 
O. Jacoby and J. R. Crawford, 
by Pan (ISBN Ø 33Ø 24234 2) at £3.50. 


7 8 


For further information on the game, 
refer to 
Backgammon Book by 
published 


280 MODE7: PRINTTAB (1,1) "Bye" 
290 END 


1000 DEFPROCstone (X2 , Y$,C2) 

1010 GCOLO,C$ 

1028 MOVEX%, Y%:MOVEX%-40,Y%+36 

1030 PLOT85,X%+4Ø,Y%+36:PLOT85,X%,Y%+72 
1040 ENDPROC 

1058 s 

1060 DEFPROCscreen 

1970 VDUI9,2,2,0,0,0 

1080 L1%=1ØØ:L2%=45Ø:CLS 

1898 GCOL0,2 

1100 MOVE58,190:MOVET1250,100 

1119 PLOT85,50,900: PLOT85,1250,900 

1120 GCOL0,1 

1130 MOVE50,L12:MOVE95,L292: PLOT85 , 140, T, 


1140 FORX$s140TO500STEP90 

1150 MOVEX%+45,L2%: PLOT85,X%+9Ø,L1% 
1160 NEXT 

1178 MOVE7ØØ,L1%:MOVE745,L2%: PLOT85 , 790 


,L1$ 


1180 FORX$-790TOll50STEP9Q 
1190 MOVEX3+45,L2%: PLOT85 ,X3+90,L1% 
1200 NEXT 

1218 IFLI%=1ØØ L12-900:1.28-550:GOTO!130 
1228 GCOLØ,3 

1230 MOVE59Ø,1ØØ:MOVETØØ, 100 

1240 PLOT85, 590,900: PLOT85, 700 , 900 

1250 PRINTTAB(2,3)"1 2 3 4 5 6 

^ 8 9 10 11 12" 

1260 PRINTTAB(1,29)"24 23 22 21 29 19 
18 17 16 15 14 13" 


1278 PRINTTAB(19,1)"BACKGAMMON 
v" 

128Ø ENDPROC 

1290 : 

13ØØ DEFPROCsetup 

131Ø FORL12-20TO24:B$ (L13) ="ØØØ" : NEXT 

132Ø BS(1)="P2":BS (12) ="P5":BS (17) ="P3" 
:BS (19) z"p5" 

1330 BS(6)="C5":BS(8)="C3":BS (13) ="C5": 
BS (24) ="C2" 

1340 PO%=Ø:C0%=Ø:PH%=5:CH%=5 

1350 PPS="PØP|P2P3P4P5P6P7P8P9C1|ØØ": PBS 
=Ø 

1360 CCS="CØC1C2C3C4C5C6C7C8C9P1ØØ":CB% 
=Ø 

137Ø ENDPROC 

138Ø : 

1398 DEFPROCpieces 

1400 PROCupdate (1,9) : PROCupdate (12,9) 

1418 PROCupdate (17,0) : PROCupdate (19,9) 

1420 PROCupdate (6,3) : PROCupdate (8, 3) 

1430 PROCupdate (13,3) : PROCupdate (24,3) 

1440 ENDPROC 

1450 : 

1460 DEFPROCdice 

1478 COLOUR! : COLOUR131 

1480 DIS-RND(-TIME) 

1490 FORLI1%=1|TO1Ø 

1500 D1%=RND (6) :D2%=RND (6) 

151Ø FORL2%=1|T09ØØ: NEXT 

152Ø PRINTTAB (20,5) ;D1$: PRINTTAB (20,7) ; 
D2% 

1530 NEXT 

1540 COLOUR3:COLOUR128:VDU 7 

1558 ENDPROC 

1560 : 

1570 DEFPROCplayer 

1580 P$z1:M$-2:T$-] 

1590 PROCdice 

1600 IFFNcanpmove PROCsorry:ENDPROC 

16108 IFD1%=D2% M$-4 

1620 REPEAT 

1630 IFNOTFNofboard AND L1%=1 THEN165Ø 

1640 IFNOTFNofboard THEN! 7@QELSE1 940 

1650 REPEAT 

1660 INPUTTAB(1,30)"Move from where ",F 


oe 


1670 IFNOTFNCheck] (F$ ) VDU7 

1680 PROCspace 

1698 UNTILFNcheck]1 (F3) 

1708 IFD1%<>D2% PROCsingle 

1710 IFT%=Ø AND PH%<>15 THENI630 

1720 IFD1%<>D2% IFT%=ØAND NOT (F%+D1%>24 
OR F%+D2%>24) VDU7:GOTO163Ø 

17308 IFT2-0 IFD1%>D2% DI1%=-1ØØ 

1740 IFT%=ØAND DI2»0AND D1%<>D2% D2%=- 
go 

1750 IFD1%=D2% AND D1%>Ø PROCdouble 


1778 INPUTTAB(1,3Ø) "Are you sure (Y/N) " 
,AS 

1780 PROCspace 

1798 IFAS="N"OR AS="n" THEN163Ø 

1800 IFBS(T$)-2"CI"AND T$«7 CH$-CH$-] 
1810 IFBS(T$)="C1" CO%=C0%+1:BS(T%)="ØØ 
g" 

1820 IFPO%>Ø PO%=P0%-P% 

1830 B$(F3)="P"+STR$S (VAL (MIDS (BS (FS) ,2) 
) -PS) 

1840 IFVAL (MIDS (BS (F2) ,2)) 0 BS(F3)="ØØ 
g" 

1850 BS(T%) ="P"+STRS (VAL (MIDS (BS (T$) ,2) 
) +P$) 

1860 IFT%>18AND F$«19 PH%=PH% $*P$ 

1870 IFT$-0 PB%=PB%+P% 

1880 PROCupdate (F%,9) : PROCupdate (T$ , 0) 
1890 M%=M%-P% 

1900 IFD1%<>D2%AND T$-F$-D1$ D1$ 

1910 IFD1%<>D2%AND T$-F$-D2$ D2$--100 
1920 IFFNcanpmove PROCsorry:M$-0 

1930 IFPB%=15 M$- 

1940 UNTILM$-0 

1950 ENDPROC 

19690 : 

1970 DEFFNcheck! (A2) 

1980 IFA%>240R A%<1 =FALSE 

1999 IFLEFTS (BS (A%) ,1)<>"P" =FALSE 
2000 =TRUE 


2010 3 
2020 DEFFNcheck2 (A?) 
2030 IFAS>MZOR A$«0 =TRUE 


2040 IFVAL iubes ),2))«A$ =TRUE 

2050 -FALSE 

2060 : 

2070 DEFFNcheck3 (A2) 

2080 IFAZ»24OR A%<1 -TRUE 

2098 IFLEFTS(BS(A$),1)z"C" AND MIDS (BS ( 
A%) ,2,1)<>"1" =TRUE 

2100 IFAZ«-F$ =TRUE 

2110 IFAS-F$«»^DISAND A$-F$«»5D2$ =TRUE 

2120 FALSE 

2130 : 

2140 DEFPROCupdate (A ,C£) 

2150 IFA$-0 ENDPROC 

2160 COLOURØ:COLOUR1 31 

2170 PRINTTAB (19,15) "M=";C0% 

2180 PRINTTAB (19,17) "Yz";PO$ 

2190 COLOUR3:COLOUR! 28 

2200 IFAZ«7 X%=9Ø*A%+5 

2210 IFA%>6 AND A%<13 X%=9Ø*A%+115 

2220 TFA%>12 AND A%<19 X%=9Ø*(25—A%) +11 
5 

2230 IFAS>18AND A2«25 X$z90*(25-A$)-45 
2240 IFA$«13 LI%=89Ø:L2%=55Ø: L3$- -b5 EL 
SEL13=1ØØ:L2%=45Ø:L3%=5Ø 

2250 GCOLG,2 

2260 MOVEX%,L2%:DRAWX%,L2%+L3% 

2270 MOVEX%-45,L1% > :MOVEX2-45, L23+L3% 


1760 IFTS=ØAND PH$«»150R P%=Ø THEN163Ø 
| OT85,X%,L2%+L3% 
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2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 


MOVEX%$+45,L2%+L3%: PLOT85,X%+45,L1% 


GCOL@, I 
MOVEX$-45,L12:PLOT85,X2$,L22 
L3%=VAL (MIDS (BS (A2) , 2) ) 

IFL3$-0 ENDPROC 

IFA$>12 THEN2380 

IFL3%<5 L1%=895-L33*75 ELSEL12-520 
FORL2% Nen ud bc 

PROCstone (X$,L2$,C$£) 

NEXT 

IFAZ«13 ENDPROC 


2390 IFL3%<5 L1$2L3$*75425 ELSEL1$-400 

2400 FORL2%=1|ØØTOLISSTEP75 

2410 PROCstone(X%,L2%,C%) 

2420 NEXT 

2430 ENDPROC 

2440 : 

2450 DEFPROCdouble 

2460 REPEAT 

2470 L12$-0 

2480 INPUTTAB(1,390)"How many pe t 
© Abort) ",P% 

2490 IFPNcheck2 (P$) VDU7ELSE L1%=1 


2500 
2510 
2520 
2530 
2548 
2558 
2560 
2570 


IFP%=Ø THEN254@ 

TE 79 4D1£ o 

IFTS>24AND PH%<15 VDU7:L1%=Ø 
IFT$<25 IFFNcheck3(T$) VDU7:L13=@ 
PROCspace 

UNTILL] $=] 

IFPH$-15 AND T%>24 T%=Ø 

ENDPROC 


2580 : 


2590 
2600 
2619 


Bear off) 


2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 


271Ø : 


2720 
2730 
2740 
2756 
2760 
2779 
2788 
2790 
2800 


2810 : 


2820 


60 


DEFPROCsingle 

REPEAT 

INPUTTAB(1,30)"Move to(Ø to abort/ 
UT 

IFT$-0 THEN264Ø 

IFFNcheck3(T$) VDU7:T%=-1 
PROCspace 

UNTILNOTENcheck3 (T3)OR T3=Ø 
ENDPROC 


« 
^ 


DEFPROCspace 

PRINTTAB (1,30) SPC38 

ENDPROC 

DEFFNofboard 

L13=Ø:BS (Ø) ="P"+STRS (POS) : AS="ZZ" 
IFPO$-0 L1%=1:=FALSE 

IFDI$»0 AS=LEFTS(BS(D1%) ,2) 
IFINSTR(PPS,AS)<>Ø F$-0:-FALSE 
IFD23>Ø AS=LEFTS (BS (D2%) ,2) 
IFINSTR(PPS,AS)<>Ø F%=Ø:=FALSE 
PROCsorry 

M$-0:-TRUE 
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DEFFNcanpmove 


2830 IFDI2--100AND D2%=-1ØØOR M$- 
SE 

2840 IFPH%=15 =FALSE 

2850 L1$-9 

2860 IFD1%>D2% L3%=D1% ELSE L3%=D2% 

2870 FORL2%=ØT024-L3% 

2880 IFD1%>Ø IFLEFTS(BS(L22),1)z"P" IFI 
NSTR (PPS,LEFTS (BS (L224D12).,2) )<>Ø L13=1 
2899 IFD23>Ø IFLEFTS(BS(L2%), n IFI 
NSTR (PPS, LEFTS (BS (L224D22) ,2)) O0 L1% 

2900 NEXT 

2918 IFL1S= 

2920 : 

293Ø DEFPROCsorry 

2940 PRINTTAB(1,3Ø) "Sorry you cannot mo 
ve." 

2950 PROCpause: PROCspace 

2968 ENDPROC 

2970 : | 

2980 DEFPROCnomoves 

2990 PRINTTAB(1,30)"1 cannot move";SPC2 


-FAL 


-TRUE ELSE-FALSE 


3000 PROCpause: PROCspace 

3010 ENDPROC 

3020 : 

3030 DEFPROCown (AS) 

3040 FORL1%=1T024 

3050 IFDIS>Ø L2%=L1%+D1% ELSE L2%=25 
3060 IFD23>Ø L3%=L1%+D2% ELSE L33=25 
3070 IFL1S-ABS (D1%) >Ø IFBS$S(L1%)="C1|"AND 


LEFTS (BS (L13-D1%) ,1)="C" FS=L1%3 TS=L1 3- 
D1$ 
3080 IFLI-ABS(D22)»0 IFBS(L1%)="C1"AND 


LEFTS (BS (L12-D22),1)z"C" F2zL1$$:T$-L]12- 
D2% 

3090 IFL22«25 IFBS(L1%)=ASAND LEFTS (BS ( 
L22),1)z"C" FY=L2%:T%=L1% 

31ØØ IFL3%<25 de E LEFTS (BS ( 
L33) ,1)="C" P$=L3%:TS=L13 

3110 NEXT 

3128 ENDPROC 

313Ø : 

3140 DEFPROCbearoff 

3150 IFCH$«»15 ENDPROC 

3160 IFDI2»D2$ LI%=D1%1:D1%=-1ØØ 

3170 IFLI%=ØAND D2%3>D1% L1%=D2%:D2%=-1Ø 
Ø 

3180 IFD13>Ø IFD13=D2% L1%=D1% 

3198 IFLEFTS (BS (L1%3) ,1)="C" FY=LI%:T3= 

: ENDPROC 

3200 FORL2%=L1%T06 

3210 IFLEFTS(BS$(L22),1)z"C" IFINSTR(CCS 
,LEFTS(BS(L22-L12),2))«»0 F3=L2%:T%=L2%- 
L1$ 

3220 NEXT 

3230 IFF%>@ ENDPROC 

3240 FORL2%=1|TOL1%-1 


3250 IFLEFTS (BS (L2%) ,1)="C" F$-L22:T2-0 
3260 NEXT 

3278 ENDPROC 

3280 : 

3290 DEFPROCblock 

3300 L2$-0 

3310 FORL1%=ØT024 

3329 IFLEFTS (BS(L1%) ,1)="C" L2%=L2%+1 
3330 IFLEFTS(BS(L12),1)z"P"AND L2%<>15 
L2%=-1 

3340 NEXT 

3350 IFL2%=-1 ENDPROC 

3360 IFD1%<=D2% L1%=D2% ELSE L1%=D1% 
3370 FORL22-24-L12TOlSTEP-1 

3380 IFBS(L2%)="ØØØ" IFLEFTS (BS (L23+D1% 
),1)2"C" IFLEFTS (BS (L23+D2%) ,1)="C" FS=L 

$4+D133F2%= (L224D2£) *-1: T$-L2$ 

3390 IFD1%=D2%AND F2%<>ØAND VAL (MIDS (BS 
(L23+D2%) ,2,1))<2 F$z0:F22$-0 

3400 NEXT 

341Ø ENDPROC 

3420 : 

3430 DEFPROCcomputer | 

3440 PRINTTAB(1,3Ø) "My move!!!" 

3450 M$z2:F2$-0:F$-0 

3460 PROCdice 

3470 IFD1%=D2% M$-4 

3480 REPEAT 

3490 L1%=Ø: PROCbearoff 

3500 IFCO%>Ø PROCOff 

3510 IFM%=1AND D13=D2% D2%=-199 

3520 IFF%=25 THEN3730 

3530 IFF$>25 THENF$-0:GOTO3570 

3548 IFF%<>Ø THEN3570 

3550 PROCbestmove 

3560 IFF$-0 M$-0:GOTO3730 

3570 PRINTTAB(1,30)"I move from ";F%;" 
to ";T$;:SPCIÓ 

3580 PROCpause 

3590 TFBS (TS) ="P1 AND T2»18 PH$- n 
3600 IFBS(T%)="PI"AND T3>Ø P0%=P0%+1:BS 
(T2$)-"ggg" 

3610 BS (F2) ="C"+STRS (VAL (MIDS (BS (F2) ,2) 
yet) 

3620 IFVAL(MIDS(BS(F2),2))8 BS(F2)z"00 
g" 

3630 BS (T£) z"C"4STRS (VAL (MIDS (BS (T$) , 2) 
)+1) 

3640 IFCO%>Ø CO%=C0%-1 

3650 IFTS<7AND F%>6 CH%=CH%+1 

3660 PROCupdate (F%, 3) : PROCupdate (T£, 3) 


3670 IFT$-0 CB$- $4 

3680 M$zM$-] 

3690 IFD1%<>D2%AND F$-T$-DI$ D1%=-1ØØ 
3700 IFD1%<>D2%AND F$-T$-D2$ D2$--100 
3718 F$-0 

3720 IF CB$-15 M$-0 


3730 UNTILM3=Ø 

3740 PROCspace 

3750 ENDPROC 

3760 $ 

3770 DEFPROCoff 

3780 IFD1%>Ø AS=LEFTS(BS(25-D1%), 2) ELS 
E AS= AT Aas 

3790 IFINSTR(CCS,AS)<>Ø F%3=26:T%=25-D1% 
2D1%=D2%: ENDPROC 

3800 IFD2%>@ AS=LEFTS (BS (25—D2%) ,2) ELS 
E AS="77" s 

3810 IFINSTR(CCS,AS)<>Ø F%=26:T%=25~D2% 
:D2%=D1%: ENDPROC 

3820 M%=Ø:F%=25 

3830 PROCnomoves 

3840 ENDPROC 

3850 : 

3860 DEFPROCbestmove 

3870 IFF23<Ø F%=ABS(F2%) :F2%=Ø: ENDPROC 

3880 F%=Ø:T3%=Ø 

389Ø IFPH%=15THEN 4009 

3900 PROCown ("Cl") 

3910 FORL1$z0TOT$ 

3920 IFLEFTS(BS$(L12),1)z"P" L12-T$ ELSE 

L23=L1% 

3930 NEXT 

3940 IFT$»0AND L2%=T% F%3=Ø 

3950 IFF$«»0 ENDPROC 

3960 IFDI»20AND D23>Ø PROCblock 

3970 IFF%<>Ø ENDPROC 

3980 nr 

3990 IFF$«»0 ENDPROC 

4000 IFD1%<=D2%3 L1%=D2% ELSE L1%=D1% 

4010 FORL2%=1T024-L1% 

4020 IFDI2»0 IFLEFTS (BS (L2%) ,1)<>"P"AND 

LEFT$ (BS (L2% 5+D1%) ; rad F3=L2%+D1%:T3= 
L2% 

4030 IFD2%>Ø IFLEFTS (BS (L2%) ,1)<>"P"AND 
. LEFTS (BS (L2%+D2%) ,1) z"C" F2zL224D22:T$- 
L2%. 

4949 NEXT 

4050 IFF3<>Ø ENDPROC 

4060 PROCnomoves 

4070 ENDPROC 

4080 : 

4090 DEFPROCpause 

4100 FORL1%=1T02ØØØØ: NEXT 

4110 ENDPROC 

4120 3 

4130 DEFFNscore (AS,A%) 

4140 L22$-0:PS9-" games." 

4150 FORLI%=1+A%TO 6+A% 

4160 IFLEFTS (BS (L1%),1)=AS L2%= 

4170 NEXT 

4180 IFL22-10R POS>ØOR CO2»0 = 

4190 IFPBS=ØOR CB%=Ø =2 

42ØØ PS=" game.":=] 
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